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INTRODUCTION 


The  expanded  rotation  model  provides  a  detailed  simulation  of 
actual  personnel  movements.  It  incorporates  the  following  capabil¬ 
ities  : 


•  describes  a  rating  community  whose  inventory  is 
variable  over  time 

•  treats  each  paygrade  separately 

•  uses  continuation  rates  for  each  length  of  service 
category 

•  simultaneously  considers  a  different  rotation 
pattern  for  each  paygrade 

•  computes  promotions  into  each  paygrade. 

It  is  useful  for  the  analysis  of  questions  of  concern  to  enlisted 
rating  coordinators  ( ERC)  and  detailers.  For  example,  what  effects 
would  a  change  in  E-3  rotation  have  on  sea  and  shore  distributions 
of  personnel  in  the  higher  paygrades?  The  effect  on  rotation,  due 
to  promotions  out  of  E-3,  could  be  significant.  A  second  kind  of 
question  is  more  general:  what  changes  in  current  policies  need  to 
be  made  in  order  to  attain  a  desired  inventory  size,  paygrade 
distribution,  and  duty  type  distribution  within  each  paygrade?  To 
illustrate,  a  projection  of  the  SeaBee  community,  using  current 
continuation  rates  and  accessions,  predicts  a  total  loss  of  1,134 
personnel  within  5  years,  and  947  of  these  will  be  from  sea  duty. 

If  this  were  an  acceptable  reduction  in  size,  but  the  loss  of 
personnel  from  sea  was  considered  to  be  too  high,  the  expanded 
model  could  be  used  to  determine  alterations  in  rotation  and  acces¬ 
sions  that  would  help  maintain  a  more  stable  sea  contingent  in  each 
paygrade.  We  shall  present  a  general  description  of  the  model 
which  will  be  further  expanded  and  developed  in  subsequent  chap¬ 
ters.  The  reader  can  also  find  a  more  detailed  theoretical  account 
in  appendix  A. 

The  expanded  model  can  be  applied  to  any  detailing  community 
in  the  Navy.  Personnel  movements  are  modeled  as  a  network  with 
flows.  Each  node,  or  cell,  in  the  network  consists  of  all  individ¬ 
uals  in  the  same  paygrade  group,  duty  type,  length  of  service  (LOS) 
category  and  with  the  same  projected  rotation  date  (PRD)  to  a  new 
duty  type.  There  are  three  duty  types:  sea,  shore,  and  neutral. 
Paygrade  groups  are  defined  by  the  user.  For  example,  when  defin¬ 
ing  billet  requirements  it  is  standard  practice  to  aggregate  pay- 
grades  E-l,  E-2  and  E-3  in  a  single  paygrade  group;  other  paygrades 
can  be  similarly  aggregated  if  desired.  The  user  also  defines  the 
LOS  categories.  They  may  represent  years  in  service,  or  the  user 
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may  wish  to  define  each  LOS  category  as  a  4-year  period  instead. 

In  this  case,  the  first  LOS  category  would  consist  of  all  first- 
termers,  while  careerists  would  fall  into  higher  categories.  The 
time  period  used  to  measure  LOS  is  the  smallest  period  over  which 
the  personnel  inventory  can  be  projected.  In  the  model,  tour 
lengths  are  automatically  measured  in  quarters  of  this  time  unit. 

The  paths  which  connect  cells  are  either  fixed  or  variable. 
Fixed  paths  represent  (1)  personnel  flows,  within  the  same  paygrade 
group  and  duty  type,  from  cells  with  given  LOS  and  PRD  to  cells 
corresponding  to  LOS+1  and  PRD-4  (if  PRD  >  4),  and  (2)  flows  into 
the  next  higher  paygrade  determined  by  promotions.  It  is  assumed 
that  an  individuals'  PRD  is  not  altered  by  promotion.  The  rate  of 
flow  along  each  of  these  fixed  paths  is  determined  from  historical¬ 
ly  observed  attrition  and  promotion  rates  for  each  paygrade  group, 
duty  type  and  LOS  category;  we  assume  that  these  attrition  and 
promotion  rates  are  applied  uniformly  to  each  PRD  cell. 

The  variable  paths  are  defined  by  the  rotation  pattern.  For 
example,  rotation  from  sea  to  shore  is  modeled  by  establishing 
flows  from  each  sea  duty  cell  with  PRD  =  1  to  shore  cells  in  the 
next  higher  LOS  category.  The  rates  of  flow  along  these  paths  are 
determined  by  the  percentage  of  the  rotating  force  at  sea  who  are 
sent  to  each  possible  tour  length  or  PRD  cell. 

At  the  start  of  a  time  period  T  the  distribution  of  personnel 
is  determined  by  the  number  of  individuals  in  each  cell.  Once  the 
connectivities  and  flow  rates  have  been  established,  the  PROJECT 
program  computes  the  per-period  flows  in  the  network  and  then  adds 
accessions  to  project  the  personnel  distribution  at  the  beginning 
of  the  (T+l)-th  period. 

Alterations  in  input  data  can  be  made  at  the  beginning  of 
each  time  period.  All  historical  input  data  can  be  obtained  from 
the  Enlisted  Master  Record  ( EMR) ,  and  data  for  future  time  periods 
can  be  estimated  by  altering  this  historical  input  to  conform  to 
anticipated  changes. 

Besides  the  projection  program,  the  user  is  provided  with 
programs  to  make  alterations  in  stored  input  data,  and  system  para¬ 
meters  which  allow  the  user  to  modify  normal  operations  of  the 
model.  These  features  are  provided  for  added  flexibility  in  ana¬ 
lyzing  a  projected  inventory  profile. 

The  model  is  programmed  in  APL  to  enhance  its  potential  for 
real-time  interactive  use  at  a  terminal .  The  ideal  interaction 
would  be  a  series  of  iterative  steps  in  which  a  projection  is 
alternated  with  selective  modification  of  input.  This  should 
converge  to  a  sea/shore  policy  that  projects  a  satisfactory 
inventory . 
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The  purpose  of  this  manual  is  to  provide  a  potential  user 
with  the  specific  information  necessary  to  operate  the  ROTATIONMOD 
system.  Although  sample  applications  are  discussed  in  chapter  VI, 
they  are  not  intended  as  a  general  analysis  of  the  sea/shore  rota¬ 
tion  process.  For  this  the  reader  may  consult  reference  1.  The 
individual  who  is  only  interested  in  using  the  system  does  not  need 
to  know  very  much  of  the  technical  information  that  is  presented 
here.  For  his  purposes  he  can  begin  with  chapter  VI,  and  refer  to 
other  chapters  and  the  appendices  when  necessary.  The  remaining 
chapters  and  the  appendices  provide  information  for  the  programmer 
who  wishes  to  understand  the  system  in  sufficient  detail  to  enable 
him  to  make  alterations  or  develop  supporting  systems. 

The  model  described  in  this  paper  does  not  include  support 
systems  such  as  programs  for  loading  input  data  by  computer.  It  is 
assumed  that  these  have  been  developed  by  the  user. 
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CHAPTER  I 


GENERAL  SYSTEM  DESCRIPTION 


The  computerized  version  of  the  expanded  sea/shore  rotation 
model  ( ROTATIONMOD)  is  written  in  APL/700  and  is  compatible  with 
the  Burroughs  6700  system.  Once  ROTATIONMOD  has  become  opera¬ 
tional,  and  desired  modifications  have  been  made,  the  model  may  be 
converted  to  FORTRAN.  Because  of  the  large  quantities  of  input/ 
output  data  involved,  and  the  size  of  the  data  arrays  which  the 
model  manipulates,  difficulty  was  encountered  in  avoiding  workspace 
and  file  space  limitations.  Consequently  the  devices  used  to  over¬ 
come  these  limitations  may  require  modification  if  the  model  is  to 
be  used  on  other  APL  systems  or  if  it  is  converted  to  FORTRAN. 

The  advantages  of  APL  are  its  interactive  capability,  the 
relative  ease  with  which  modifications  to  the  system  can  be  made, 
and  the  fact  that  APL  is  particularly  suited  to  the  manipulation  of 
data  arrays;  hence  the  programs  are  considerably  more  simple  than 
they  would  be  if  written  in  FORTRAN. 

ROTATIONMOD  is  intended  to  be  a  real-time  interactive  model 
in  which  the  operator  can  analyze  consequences  of  decisions  con¬ 
cerning  rotation,  continuation,  promotions,  and  inventory  struc¬ 
ture.  On  the  basis  of  this  information,  alterations  in  manpower 
policies  can  be  made  and  tested  until  a  suitable  inventory  profile 
is  defined  -  or  until  it  becomes  clear  that  the  desired  objectives 
are  incompatible.  It  cannot  be  rigorously  demonstrated 
that  this  iterative  process  will  always  "converge"  to  an  optimal 
solution;  however,  it  is  evident  that  restrictive  hypotheses,  which 
might  guarantee  such  convergence,  would  severely  limit  the  applica¬ 
bility  of  the  model.  As  an  alternative  to  such  artificial  restric¬ 
tions,  we  have  tried  to  make  ROTATIONMOD  as  flexible  a  tool  as 
possible. 

Since  it  is  impossible  to  foresee  all  potential  applications 
of  the  model,  users  may  find  some  features  inappropriate  or 
unnecessary,  while  other  desirable  capabilities  are  lacking.  We 
have  tried  to  make  ROTATIONMOD  easy  to  modify.  Functions  which 
would  most  likely  be  subject  to  modifications  have  a  modular  struc¬ 
ture  so  that  capabilities  can  be  added  or  deleted  without  major 
structural  changes  in  the  model  itself. 

In  the  next  few  paragraphs  we  shall  present  an  overview  of 
the  ROTATIONMOD  system.  Subsequent  chapters  will  be  devoted  to 
more  detailed  descriptions. 

The  model  may  be  applied  to  analyze  any  detailing  community 
within  the  Navy,  such  as  a  rating  or  aggregate  of  ratings,  which 
has  the  following  structural  characteristics: 
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•  the  personnel  inventory  can  be  divided  into  a  number 
L  of  length  of  service  (LOS)  categories  such  that  each 
individual  in  the  L-th  LOS  at  time  period  T  will  appear 
in  the  (L+l)-th  LOS  at  period  T+l  if  he  remains  in  the 
Navy . 

•  the  personnel  inventory  can  be  divided  into  K  pay- 
grade  groupings  such  that  an  individual  in  paygrade 
group  K  (K  <  K)  has  a  probability  of  being  promoted  to 
paygrade  group  K+l 

•  the  personnel  inventory  can  be  further  subdivided 
into  three  duty  types: 

(1)  sea 

(2)  shore 

(3)  neutral 

(the  numbers  serve  to  identify  duty  types  in 
ROTATIONMOD  functions) 

•  at  each  time  period,  each  individual  has  a  projected 
rotation  date  (PRD)  for  rotation  to  a  new  duty  type. 

Thus  each  paygrade  group  inventory  can  be  divided  into 
"cells"  consisting  of  all  individuals  with  the  same  LOS,  duty  type 
and  PRD.  In  addition  to  the  parameters  L  and  K,  we  shall  use  T  to 
denote  the  maximal  number  of  projection  periods,  and  M  to  denote 
the  largest  tour  length  to  which  any  individual  will  be  assigned. 
The  parameters  K,  L,  M,  and  T  are  defined  by  the  user,  subject  to 
realistic  limitations.  Generally  K  =  7  since  the  paygrades  E-l,  2, 
3  are  usually  aggregated.  The  projection  periods  are  usually 
measured  in  years  (because  reliable  continuation  data  is  available 
for  periods  of  1  year).  Because  of  file  size  limits,  T  =  5  is 
about  as  large  as  T  can  be.  The  LOS  categories  are  1-year  periods 
so  that  L  =  31.  Finally,  the  PRD,  or  time  remaining  in  duty  type, 
is  measured  in  quarters.  Since  it  is  DoD  policy  that  no  one  should 
normally  be  assigned  a  tour  length  of  more  than  5  years,  we  usually 
take  M  =  20. 

For  a  normal  rating  community,  each  paygrade  inventory  can  be 
modeled  as  a  3-dimensional  array.  The  entry  in  the  (a,  b,  c)-th 
cell  is  just  the  number  of  individuals  in  duty  type  a  and  LOS 
category  b,  with  a  PRD  of  c  quarters. 

The  model  requires  five  APL  files  called  MOD,  FILEl,  FILE2, 
FILE3 ,  and  FILE4 ,  and  a  workspace  called  ROTATIONMOD.  In  the 
Burroughs  6700  system,  each  file  has  a  180,000  Byte  capacity,  and 
the  workspace  has  a  85,000  Byte  capacity.  The  file  MOD  is  used  to 
store  most  of  the  functions.  These  are  brought  into  the  workspace 
by  a  "calling  function"  having  the  general  form  shown  in  figure  1. 
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v  FUNCTION 
□FXBCI  :i  'MOD' 
FUNCTIONN 
0 EX  FUNCTIONN 


FIG.  1:  EXAMPLE  OF  A  CALLING  FUNCTION 


The  program  FUNCTIONN  is  stored  as  a  vector  in  component  I  of  MOD. 
Statement  [1]  converts  the  vector  representation  into  an  APL 
function,  which  is  executed  in  statement  [2] .  Statement  [3]  then 
expunges  FUNCTIONN  from  the  workspace.  In  several  cases  the 
calling  function  is  indexed,  and  calls  one  of  several  functions 
(each  named  FUNCTIONN)  according  to  the  value  of  the  index.  This 
device  is  necessary  because  of  limitations  on  workspace  size.  If 
more  functions  are  added  to  the  model,  they  can  also  be  stored  in 
MOD.  Table  1  consists  of  a  list  of  those  functions  which  are 
currently  stored  in  MOD. 

TABLE  1 

STRUCTURE  OF  MOD  FILE 


MOD  components 

1-6 

7 

8 

9-23 

24 

25-31 

32-35 

36 

37 

38 

39 

40-49 

50 

51 

52 


Stored  function 

PRINN 

GROUPP 

FILLL 

PRINTT 

ADJPROBB 

HEADERR 

CHECKK 

FILEALTT 

STATUSS 

ALTERR 

PROJECTT 

CHANGEE 

COMPTRR 

COMPTAA 

TRANS F ERR 


Calling  function 

PRIN 

GROUP 

FILL 

PRINT 

ADJPROB 

HEADER 

CHECK 

FILEALT 

STATUS 

ALTER 

PROJECT 

CHANGE 

COMPTR 

COMPTA 

TRANSFER 


FILEl  through  FILE4  are  data  files  which  contain  both  input 
and  output.  The  main  functions  ADJPROB  and  PROJECT  read  their 
output  directly  into  these  data  files.  The  files  are  then  accessed 
by  using  the  PRINT  and  READFILE  functions.  Although  we  shall 
discuss  the  structure  of  these  files  in  more  detail  in  the  next 
chapter,  one  structural  aspect  is  noted  here.  Each  of  the  data 


6 


files  is  divided  into  two  compartments  of  identical  structure. 
Depending  on  the  value  of  the  workspace  parameter  0P1  (0P1  =  0  or 
1) ,  functions  of  ROTATIONMOD  access  the  0-  compartment  or  the  1- 
compartment.  In  this  way  a  copy  of  the  initial  input/output  data 
can  be  stored  in  the  1-  compartment,  say,  while  the  model  is  being 
used  to  modify  data  in  the  0-  compartment.  Thus  the  initial  and 
final  inventory  profiles  can  be  compared. 

The  ROTATIONMOD  system  contains  functions  for  data 
manipulation,  and  also  user-specified  parameters,  such  as  OPl, 
which  control  the  operation  of  these  functions. 

In  the  following  detailed  description  of  the  model,  we  will 
elaborate  further  the  outline  sketched  above. 
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CHAPTER  II 


FILE  STRUCTURE 


The  structure  of  MOD  has  already  been  given  sufficient  atten¬ 
tion.  In  this  section  we  shall  consider  the  data  files.  The 
number  of  components  in  each  of  these  files  is  determined  by  the 
workspace  parameters  K  and  T.  The  file  capacity  of  180,000  bytes 
limits  T  to  about  5  or  6  periods.  As  we  have  noted,  each  data  file 
is  divided  into  two  compartments  of  identical  structure.  In  table 
2  we  have  indicated  the  structure  of  the  0-  compartment  of  each 
data  file.  Throughout  the  discussion,  we  will  emphasize  the  0- 
compartment;  the  1-  compartment  comprises  the  second  half  of  the 
file.  FILEl  contains  basic  input  data,  which  will  be  described  in 
chapter  III. 

FILE2  contains  accessions  to  the  inventory  for  each  paygrade 
and  time  period  from  period  0  to  period  T-l.  The  accession  infor¬ 
mation  corresponding  to  a  paygrade  and  time  period  is  stored  in  two 
consecutive  file  components;  thus  accessions  for  paygrade  group  a 
in  period  b  are  located  in  FILE2  components  (2a  -1)  +  2bK  and 
2a  +  2bK. 

FILE3  contains  adjusted  probabilities  of  promotion,  which  are 
computed  by  the  function  ADJPROB .  These  are  inputs  to  PROJECT. 
Adjusted  probabilities  for  each  paygrade  at  period  b  are  stored  in 
component  b  +  1;  components  1  through  T  contain  this  information. 
Components  T  +  1  and  T  +  2  contain,  respectively,  the  current 
values  of  the  "check"  parameters  C0A  and  COP  (these  are  described 
in  chapter  IV  on  workspace  parameters) .  The  1-  compartment  of 
FILE2  is  identical  in  structure,  consisting  of  the  components  T  +  3 
through  2T+2  for  adjusted  probabilities,  and  2T+3,  2T+4  for  the 
"check"  parameters  CIA,  C1P. 

FILE4  contains  two  types  of  input/output  data  related  to 
PROJECT.  In  the  0-  compartment,  the  first  component  contains,  for 
each  projected  paygrade  inventory,  the  following  totals: 

•  Initial  inventory 

•  Inventory  after  attrition 

•  Promotions  into  paygrade 

•  Accessions  into  paygrade 

•  Paygrade  limits  for  next  period 

•  Projected  inventory  for  next  period. 

Components  2  through  2K+1  contain  the  initial  inventory.  This  data 
for  paygrade  a  at  time  period  b  is  located  in  components  2a+2bK  and 
l+2a+2bK. 
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aIndicates  an  additive  data  type.  This  will  be  defined  in  chapter  IV. 


This  completes  the  description  of  the  file  system.  We  now 
proceed  to  describe  in  detail  the  data  types  which  have  been 
introduced  here. 
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CHAPTER  III 


DATA  TYPES 


ROTATIONMOD  requires  a  large  data  base  which  is  stored  in  the 
data  files  as  described  in  the  previous  chapter.  Each  of  the 
distinct  data  types  is  listed  in  table  2.  Data  types  are 
identified  by  the  corresponding  number  in  the  READFILE  and 
WRITEFILE  functions.  Each  type  is  classified  by  several  (or  all) 
of  the  following  characteristics: 


•  duty  type 

•  length  of  service 

•  paygrade 

•  time  period. 


Data  of  a  given  type  is  generally  stored  in  the  form  of  a  matrix  or 
3-dimensional  array.  The  smallest  unit  of  each  data  type  that  is 
processed  by  ROTATIONMOD  is  characterized  by  paygrade  and  time 
period.  The  structure  of  these  data  units,  indicated  within  paren¬ 
theses  in  table  2,  depend  on  the  data  type.  The  structure  and  data 
unit  for  each  data  type  will  now  be  described.  To  be  explicit,  we 
again  consider  data  stored  in  the  O-compartment. 


BILLETS 


Billet  requirements  are  determined  by  the  user  for  each  duty 
type,  paygrade  and  time  period.  These  billets  must  be  manned  at  a 
certain  percentage,  e.g.,  100  percent  sea  and  70  percent  shore. 

This  data  is  not  required  for  projecting  an  inventory,  but  is  used 
as  a  basis  for  comparing  ROTATIONMOD  output  with  desired  Navy 
goals.  In  the  model,  BILLETS  are  stored  in  the  first  component  of 
FILEl  as  a  K  x  (T+l)  x  3  array.  The  (a,  b,  c)-th  entry  is  the 
billet  requirement  for  duty  type  c  in  paygrade  a  at  time  period 
b-1.  The  unit  data-type  is  called  BILTS,  and  as  illustrated  in 
figure  2  it  is  a  3-component  vector  of  billet  requirements  for  sea, 
shore  and  neutral  duty,  respectively. 


BILTS 

2445  645  15 


FIG.  2:  BILLET  DATA  UNIT  (BILTS)  CORRESPONDING  TO  A 
PAYGRADE  AND  TIME  PERIOD 
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PAYGRADE  LIMITS 


The  second  component  of  FILE1  contains  PAYGRADE  LIMITS. 
These  are  the  maximum  allowed  size  for  each  paygrade  at  each  time 
period.  PAYGRADE  LIMITS  are  stored  as  a  (T  +  1)  x  K  matrix,  in 
which  the  maximum  endstrength  for  paygrade  a  at  time  period  b  is 
the  (b  +  1,  a)-th  entry;  this  entry  is  also  the  data  unit 
PGLIM . 


PROMOTION,  ELIGIBLE  AND  ADJUSTED  PROBABILITIES 

The  computation  of  promotions  is  based  on  input  data  stored 
in  components  3  and  4  of  FILE1.  PROMOTION  PROBABILITIES,  in 
component  3,  represent  the  historical  percentage  of  personnel  who 
have  been  promoted.  This  should  be  the  average  of  several  year's 
data  in  order  to  more  accurately  reflect  persistent  characteristics 
of  promotion  behavior  (e.g.  one  expects  that  for  each  paygrade 
certain  LOS  categories  would  consistently  have  a  greater  percentage 
of  their  personnel  promoted  than  others;  that  is,  the  promotion 
probability  distribution  over  LOS  categories  should  reflect  charac¬ 
teristics  of  the  paygrade) .  These  percentages  or  "probabilities" 
of  promotion  are  stored  in  the  form  of  a  3  x  L  x  K  array  in  which 
the  (c,  b,  a)-th  entry  represents  the  percent  of  the  personnel  in 
paygrade  a,  at  duty- type  c,  and  in  LOS  b  who  have  historically  been 
promoted  (or  an  average  of  such  percentages) .  As  shown  in  figure 
3,  the  data  unit  PROBPROM  is  a  3  x  L  matrix  whose  (c,  b)-th  entry 
is  the  probability  of  promotion  for  personnel  in  LOS  b  and  duty 
type  c . 


Promotions  are  limited  to  personnel  who  have  satisfied 
eligibility  requirements  determined  by  length  in  service  and  test 
scores.  In  ROTATIONMOD ,  this  is  represented  by  ELIGIBLE  PROBABILI¬ 
TIES,  which  are  stored  in  component  4,  and  represent  the  percentage 
of  personnel  in  a  (duty  type,  LOS,  paygrade)  cell  which  have  ful¬ 
filled  eligibility  requirements.  This  data  has  the  same  3  x  L  x  K 
array  structure  as  promotion  probabilities.  The  data  unit  ELIG  is 
a  3  x  L  matrix  whose  interpretation  is  analogous  to  PROBPROM. 

In  response  to  variations  in  endstrength  requirements, 

PROJECT  computes  "adjusted  probabilities  of  promotion"  which  are 
obtained  by  scaling  the  historical  probabilities,  but  are  never 
greater  than  the  eligible  probabilities.  These  ADJUSTED  PROBABILI¬ 
TIES  for  each  time  period  are  stored  in  components  1  through  T  of 
FILE3  in  the  shape  of  a  3  x  L  x  K  array  whose  interpretation  is  the 
same  as  that  of  promotion  and  eligible  probabilities.  The  data 
unit  ADJPROBPROM  is  also  similar  to  ELIG  and  PROBPROM. 
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CORRESPONDING  TO  A 


CONTINUATION 


The  continuation  data  for  time  period  T  consists  of  the 
percentage  of  survivors  from  period  T  to  period  T  +  1  for  each 
paygrade  and  each  LOS  category.  Since  nearly  all  personnel  retire 
at  the  end  of  31  years  of  service,  the  model  is  based  on  the 
assumption  that  continuation  rates  for  LOS  31  are  zero  for  all 
paygrades  and  all  time  periods.  The  user  must  take  care  when 
loading  the  data  base  to  insure  that  this  condition  is  satisfied . 

Generally,  continuation  rates  will  be  LOS  "bag"  rates  such  as 
those  obtained  by  PROPHET  (reference  2),  or  directly  from  the  EMR. 
Provision  is  made  for  using  different  rates  for  each  of  the  three 
duty  types  should  this  information  be  available.  Continuation  data 
for  sea,  shore  and  neutral  is  loaded  in  FILEl  components  5,  6,  and 
7  respectively.  Each  of  these  components  contains  a  T  x  L  x  K 
array  in  which  the  (c,  b,  a)-th  entry  is  the  percent  of  survivors 
through  time  period  c  in  LOS  b  and  paygrade  a. 

The  data  unit  CONTINUATION  corresponding  to  a  paygrade  and 
time  period  is  a  3  x  L  matrix  of  LOS  continuation  rates  for  each 
duty  type  -  again  similar  to  PROBPROM. 


ROTATION 

The  input  data  which  specifies  a  rotation  pattern  falls  into 
three  categories:  early  rotation,  normal  rotation  and  late 
rotation.  Personnel  who  rotate  normally  go  to  a  particular  duty- 
type  for  a  specified  number  of  quarters  -  their  projected  rotation 
date  (PRD) .  At  the  end  of  this  time,  they  rotate  to  a  different 
duty  type.  Most  individuals  should  be  following  this  normal 
pattern;  however,  exceptions  occur  when  tour  lengths  are  extended 
or  shortened  due  to  factors  such  as  operational  holds,  humanitarian 
considerations,  leave  taken  between  tours  or  participation  in 
schools.  There  are  six  types  of  rotation  in  the  normal  pattern: 

(1)  sea  to  shore 

(2)  sea  to  neutral 

(3)  shore  to  sea 

(4)  shore  to  neutral 

(5)  neutral  to  sea 

(6)  neutral  to  shore. 

The  EARLY  ROTATION  data  is  stored  in  component  8  of  FILEl  as 
a  T  x  6  x  K  array,  in  which  the  (c,  b,  a)-th  entry  is  the  percent¬ 
age  of  personnel  in  paygrade  a  at  time  period  c  with  rotation  type 
b.  The  data  unit  EROT  for  a  particular  paygrade  and  time  period  is 
a  6-component  vector  whose  b-th  component  is  the  percent  of  rotat¬ 
ing  personnel  whose  rotation  type  is  b. 
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EROT 

:l.  25:1.862891 


0  0.07373271889  0.004608294931  0  0.5 


FIG.  4:  EARLY  ROTATION  DATA  UNIT  (EROT)  DETERMINED 
BY  PAYGRADE  AND  TIME  PERIOD 


We  have  assumed  that  individuals  who  rotate  early  will  be 
assigned  to  a  normal  tour  in  their  new  duty  type.  Normal 
assignments  are  determined  at  each  time  period  by  the  NORMAL 
ROTATION  data,  which  is  in  the  form  of  a  6  x  M  x  K  array.  The  (b, 
c,  a)-th  entry  is  the  percentage  of  paygrade  a  with  rotation  type  b 
who  rotate  to  a  tour  length  c  quarters. 

These  arrays  are  large  (approximately  14,000  bytes)  and  if 
loaded  directly  into  file  components,  would  take  up  excessive 
space.  Therefore  it  was  necessary  to  separate  each  array  into  a 
(0,1) -array  R,  whose  non-zero  entries  correspond  to  the  non-zero 
entries  of  the  original  array,  and  a  vector  V  whose  components  are 
the  non-zero  entries  of  the  array.  In  APL  this  is  done  by  the 
commands 


R-*—  0  ^  ARRAY 
V«*-(  ,R)/, ARRAY. 

Since  most  entries  in  a  rotation  array  are  zero,  this  results  in  a 
substantial  reduction  in  space  requirements.  The  original  array  is 
given  by  the  expression 

(3,  L,  M)  p  (  ,R)\V . 

The  arrays  R  and  V  are  stored  in  two  consecutive  components  of 
FILEl  (see  table  2) .  For  time  period  T,  R  is  located  in  component 
T  +  9,  and  V  is  stored  in  component  T  +  10 . 

The  data  unit  NROT  is  a  6  x  M  matrix  (an  example  is  shown  in 
figure  5).  The  (a,  b)-th  entry  is  the  percentage  of  rotation  type 
a  personnel  who  are  sent  to  a  tour  length  of  b  quarters. 

LATE  ROTATION  data  is  treated  similarly.  For  each  period  it 
is  represented  as  a  3  x  M  x  K  array  in  which  the  (c,  b,  a)-th  entry 
is  the  percentage  of  personnel  in  paygrade  a  and  duty  type  c,  with 
a  PRD  of  1  through  4,  whose  PRD  is  extended  to  b  remaining  quar¬ 
ters.  The  data  unit  LROT  (figure  6)  is  a  3  x  M  matrix  in  which  the 
(c,  b)-th  entry  is  the  percentage  of  personnel  in  duty  type  c  who 
are  assigned  a  new  PRD  of  b  quarters.  Again,  due  to  space  consid¬ 
erations  ,’  this  data  has  been  separated  into  a(0,l)-array  and  a 
vector  which  are  stored  in  consecutive  components  of  FILEl  as 
indicated  in  table  2. 
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PAYGRADE  AND  TIME 
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ACCESSIONS  AND  INVENTORY 


In  the  model,  accessions  are  interpreted  to  include  lateral 
transfers  in  and  out  of  a  rating  as  well  as  new  personnel  entering 
at  the  lower  paygrade  levels.  Thus  lateral  transfers  out  of  a 
rating  are  represented  by  a  negative  number.  Also,  a  significant 
number  of  people  attend  schools  between  duty  tours,  and  for  this 
period  they  are  not  counted  as  part  of  the  distributable  inventory. 
This  can  be  modeled  by  considering  school  candidates  as  negative 
accessions  to  the  inventory  when  they  enter  school  and  positive 
accessions  when  they  are  re-established  in  the  normal  paygrade 
inventory. 

Paygrade  accessions  and  inventory  are  both  represented  as 
3  x  L  x  M  arrays  in  which  the  (a,  b,  c)-th  entry  is  the  number  of 
accessions  to/from  (or  personnel  in)  the  cell  defined  by  duty 
type  a,  LOS  b  and  tour  length  c.  There  is  one  such  array  for  each 
paygrade  and  time  period.  In  the  case  of  inventory,  the  initial 
period  0  inventory  is  input,  and  all  subsequent  periods  represent 
output  from  the  PROJECT  program.  These  are  the  largest  data  ele¬ 
ments  in  ROTATI ONMOD  and  must  be  stored  as  pairs  consisting  of  a 
(0,  1) -array  and  a  vector  as  previously  described.  For  both  acces¬ 
sions  and  inventory,  the  data  unit  is  the  entire  3-dimensional 
array. 


SUMMARY 

The  summary  data,  stored  in  component  1  of  FILE4  is  also 
output  from  PROJECT;  and  for  each  paygrade  and  time  period  T  it 
consists  of  totals  of  the  following  data  types: 

Initial  inventory  at  period  T 
Inventory  after  attrition 
Promotions  into  paygrade 
Accessions  into  paygrade 
Paygrade  limits  for  period  T+l 
Projected  inventory  for  period  T+l 

It  is  stored  as  a  T  x  7  x  K  array.  The  data  unit  SUMMARY  is  a 
7-component  vector  as  shown  below. 


SUMMARY 

1  3875 ♦ 185336  3043.729128  0  2615  3825  3948,321063 

The  first  component  indicates  the  paygrade  and  the  remaining  six 
are  totals  for  each  of  the  above  data  types. 

In  table  2  we  summarized  all  data  types.  The  table  also 
includes  three  which  have  not  been  described.  These  are  not  stored 
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in  the  files,  but  can  be  computed  from  stored  data.  For  example, 
the  SURVIVING  INVENTORY  is  simply  the  paygrade  inventory  after 
attrition.  PROMOTIONS  is  the  array  of  actual  promotions  in  each 
inventory  cell  computed  by  applying  the  adjusted  promotion  proba¬ 
bilities  to  the  surviving  paygrade  inventory.  The  PREPARED 
INVENTORY  is  the  inventory  array  which  results  after  attrition  and 
promotions  have  been  completed.  That  is,  the  inventory  of  a  pay- 
grade  just  before  it  is  rotated.  Each  of  these  inventory- type  data 
arrays  represents  a  particular  stage  in  projection  to  the  next 
period.  This  data  can  be  printed  by  the  PRINT  function  described 
in  chapter  V;  thus  the  user  can  examine  in  detail  the  steps  in  the 
transformation  of  an  inventory  into  the  next  periods'  inventory. 

We  now  turn  to  a  description  of  the  workspace  parameters 
which  provide  added  flexibility  by  allowing  the  user  to  modify 
certain  aspects  of  the  projection  process. 
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CHAPTER  IV 


WORKSPACE  PARAMETERS 


In  addition  to  the  file  system,  which  has  been  described,  and 
the  programs  which  will  be  discussed  in  the  next  chapter, 
ROTATIONMOD  utilizes  parameters  which  define  file  size  and  control 
the  operation  of  certain  functions.  The  parameters  K,  L,  M,  T  and 
OPl  have  already  been  defined;  a  summary  description  of  all 
parameters  can  be  found  in  appendix  C. 

The  rotation  pattern,  as  we  have  seen,  consists  of  early, 
normal  and  late  rotation  components.  In  order  to  increase  flexi¬ 
bility,  we  have  introduced  parameters  0P2  and  0P3  to  control  the 
effects  of  early  and  late  rotation.  If  0P2  =  1  then  the  late  rota¬ 
tion  data  will  enter  into  the  rotation  computation.  However  if  the 
user  sets  0P2-* — 0,  PROJECT  will  ignore  late  rotation  data.  Simi¬ 
larly,  if  OP3  =  1  early  rotation  information  will  be  utilized  while 
.if  0P3  =  0  it  will  be  ignored.  Thus,  for  example,  the  operator  can 
study  consequences  of  a  purely  normal  rotation  pattern,  without 
destroying  other  rotation  data,  by  setting  OP2** — 0P3-* — 0. 

Normally,  because  of  file  size  limitations,  it  is  necessary 
to  restrict  T  £  5.  That  is,  an  initial  inventory  can  be  projected 
at  most  5  periods.  However,  the  effects  of  certain  aspects  of  a 
sea/shore  policy  may  not  appear  for  several  years  (e.g.  a  change  in 
rotation  patterns  may  have  no  effect  on  duty  type  distributions  for 
three  or  four  years) .  The  operator  can  analyze  an  inventory  pro¬ 
file  over  a  longer  time  span  than  would  otherwise  be  possible  by 
using  OP4.  This  parameter  is  a  2-  component  vector.  If 
OP4[l]  =  0,  it  has  no  effect.  However,  if  OP4[l]  =  1  and 
OP4 [ 2 ]  =  T,  ADJPROB  and  PROJECT  will  re-define  the  projection 

period  to  be  T,  and  will  use  time  period  T  -  1  data  to  operate  on 
inventory  stored  in  time  period  T.  The  projected  inventory  is 
stored  in  the  time  period  T  space,  destroying  its  previous  con¬ 
tents.  In  this  way  the  time  period  T  inventory  can  be  projected  to 
any  future  period  using,  at  each  projection,  the  period  T-l  input 
data.  The  use  of  0P4  will  be  more  completely  described  in  chapter 
IV. 


The  user  may  be  interested  in  aggregating  certain  paygrades. 
For  example,  because  of  the  one-up/one-down  principle  for  filling 
paygrade  billets,  paygrades  E-4  and  E-5  could  be  combined  in  an 
analysis  of  personnel  available  to  fill  E— 4  billets.  For  all 
additive  data  types,  this  can  be  accomplished  by  an  appropriate 
setting  of  the  vector  OP5  (the  additive  data  types  are  defined  by 
an  "a"  in  table  2) .  Roughly,  a  data  type  is  additive  if  the  data 
for  an  aggregate  of  paygrades  is  the  sum  of  the  data  for  the 
individual  paygrades.  Promotions  are  the  only  exeption  to  this 
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rule;  it  is  clear  that  promotions  out  of  an  aggregate  are  the  same 
as  promotions  out  of  the  highest  paygrade  in  the  aggregate. 

The  parameter  0P5  must  satisfy  the  following  conditions: 

•  All  components  lie  in  the  interval  between  1  and  K 
inclusive . 

•  0P5  has  an  even  number  of  components  n 

•  The  number  n  of  components  must  lie  between  2  and  2K 
inclusive . 

Under  these  conditions,  0P5  defines  n/2  paygrade  groups  in  which 
the  m-th  paygrade  group  is  the  aggregate  of  all  paygrades  k  in  the 
interval  OP5[2m-l]  _<  k  _<  OP5[2m]  .  For  example,  if  0P5  =  1,  4,  6,  K 
then  two  paygrade  groups  are  defined.  The  first  is  the  aggregate 
of  paygrades  1,  2,  3,  and  4  and  the  second  is  the  aggregate  of  pay- 
grades  6  through  K.  The  function  GROUP  aggregates  additive  data 
for  the  paygrade  groups  defined  by  0P5. 

The  ordinary  paygrade  structure  is  obtained  by  the  APL 
command  0P5-*— 1,  1,  2,  2,  ...,  K,  K.  In  most  cases  0P5  should 
initially  be  set  to  this  value  and  altered  only  for  special 
considerations . 

The  parameter  0P6  serves  the  analogous  purpose  of  aggregating 
LOS  categories  for  additive  data  types.  This  vector  must  satisfy 
the  conditions  for  0P5  with  K  replaced  by  L.  Normally  the  value  of 
0P6  would  be  specified  by  the  APL  command  0P6-- — 1,  1,  2,  2,  ...,  L, 
L. 

Finally,  there  are  four  "check"  parameters:  COA,  COP,  CIA 
and  C1P.  These  are  binary  vectors  stored,  respectively,  in  compo¬ 
nents  T+l,  T+2,  3+2T  and  4  +  2T  of  FILE3 .  The  number  of  com¬ 
ponents  in  COA  is  the  number  of  time  periods,  starting  with  period 
0,  for  which  adjusted  probabilities  have  been  computed  in  the  0- 
compartment;  and  the  number  of  components  in  COP  is  the  number  of 
periods  to  which  the  inventory  has  been  projected  (initial  inven¬ 
tory  is  by  definition  the  projected  inventory  at  time  T  =  0)  in  the 
0-compartment.  The  vectors  CIA  and  C1P  have  an  analogous  interpre¬ 
tation  for  the  1-  compartment. 

Immediately  after  the  inventory  has  been  projected  T  periods, 
COP  (or  ClP  if  OPl  =1)  is  a  vector  consisting  of  T  +  1  zero 
components.  If  input  data  affecting  PROJECT  is  changed  at  the  T  - 
1  time  period  by  using  CHANGE  to  make  selective  alterations,  a  1  is 
automaticallly  placed  in  component  T  of  COP  (or  ClP) .  Figure  7 
shows  a  sample  setting.  Similarly  alterations  in  data  on  which 
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C  0  A  i 
COP  ~  1 


0  0  0 

0  ('•'  o  o 


0 


FIG.  7:  A  SETTING  OF  THE  CHECK  VECTORS 


the  ADJPROB  program  depends  are  reflected  in  COA  or  CIA  by  a  1  in 
the  appropriate  component.  These  check  parameters  provide  the 
operator  with  a  convenient  check  on  the  consistency  of  the  data  in 
the  file  system.  ADJPROB  and  PROJECT  will  give  error  messages  if 
the  operator  tries  to  use  these  programs  after  altering  data  for  a 
prior  period.  The  current  value  of  all  workspace  parameters  can  be 
obtained  by  using  the  STATUS  function. 

This  completes  our  discussion  of  workspace  parameters.  The 
relations  between  them  and  the  ROTATIONMOD  functions  are  summarized 
in  table  3. 
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TABLE  3 


INTERRELATION 
OP1  OP2 


OF  FUNCTIONS  AND  WORKSPACE 
OP3  OP4  OP5  OP6  COA 


PARAMETERS 
COP  CIA 


C1P 


ADJPROB 

ALTER 

ATTRITION 

CHANGE 

CHECK 

COMPTA 

COMPTR 

FILEALT 

FILL 

FFF 

GROUP 

HEADER 

PREPINV 

PRIN 

PRINT 

PROJECT 

STATUS 

TRANSFER 

READFILE 

WRITEFILE 


+  0 

+  0 

+  0 

+  0 

+  0 

+  0 

+  + 

+  0 

+  0 

+  0 

+  0 

0  0 

+  + 

0  0 

+  0 

+  + 

+  + 

0  0 

+  0 

+  0 


0  + 

0  0 

0  + 

0  0 

0  0 

0  0 

+  0 

0  0 

0  0 

0  0 

0  0 

0  0 

+  0 

0  0 

0  0 

+  + 

+  + 

0  0 

0  0 

0  0 


0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

+  0 

0  0 

0  0 

0  0 

+  + 

0  0 

0  0 

0  0 

+  + 

0  0 

+  + 

0  0 

0  0 

0  0 


1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

+ 

0 

0 

0 


1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

+ 

0 

0 

0 


1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

+ 

0 

0 

0 


+  means  that  the  parameter  value  affects  the  operation  of  the 
function,  while  -  indicates  that  the  function  affects  the  parameter 
value . 
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CHAPTER  V 


ROTATIONMOD  FUNCTIONS 


The  functions  which  comprise  ROTATIONMOD  are  described  in 
this  chapter.  The  theoretical  basis  for  the  computations  are 
discussed  in  appendix  A. 

The  functions  fall  into  two  categories:  those  which  the  user 
must  operate,  and  functions  which  appear  as  subroutines  in  these 
user-oriented  functions.  The  user-oriented  functions  are  listed 
below: 


ADJPROB 

CHANGE 

COMPTA 

COMPTR 

FILL 

PRINT 

PROJECT 

STATUS 

TRANSFER 

READFILE 

WRITEFILE 

In  this  chapter  we  shall  give  a  general  description  of  each 
function.  Appendix  B  contains  flow  diagrams  and  a  complete  listing 
of  all  functions. 

User-Oriented  Functions 

These  are  the  programs  that  the  operator  must  use  when 
applying  ROTATIONMOD.  We  have  tried  to  minimize  the  knowledge  of 
APL  necessary  for  their  operation  by  providing  error  message 
responses  and  conversational  program  entries  where  appropriate. 


ADJPROB 

Historical  probabilities  of  promotion  (see  chapter  III)  are 
inputs  to  the  expanded  rotation  model.  However,  promotion  behavior 
is  modified  by  time-dependent  factors  such  as  changes  in  end- 
strength  requirements,  accessions  or  continuation;  therefore  the 
actual  promotions  in  any  period  will  depend  on  changes  in  these 
factors.  This  requires  an  adjustment  of  the  historical  probabili¬ 
ties.  The  modeling  of  this  response  is  carried  out  by  the  program 
ADJPROB  and  the  subroutine  FFF . 
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In  order  to  compute  adjusted  promotion  probabilities  for  time 
period  T,  the  user  types  ADJPROB  T.  The  results  of  the  subsequent 
computation  are  stored  in  FILE3  (see  chapter  II).  The  conditions 
required  for  using  this  program  are  listed  below: 

•  0  _<  T  _<  T 

•  Inventory  has  been  projected  to  period  T. 

•  Subsequent  to  this  projection,  no  input  data  for 

previous  periods  has  been  altered. 

A  violation  of  any  of  these  conditions  results  in  an  error  message 
and  termination  of  the  program.  The  compartment  from  which  input 
data  is  read  is  determined  by  the  value  of  0P1. 

Normally,  when  0P4[1]  =  0,  ADJPROB  will  read  data  from  the 
period  T  spaces  and  store  computed  adjusted  probabilities  in  the 
period  T  space.  However,  if  OP4[l]  =  1,  then  no  matter  what  value 
of  T  is  entered,  ADJPROB  will  redefine  it  to  be  OP4[2]-l.  When 
OP4[l]  =  1,  ADJPROB  and  PROJECT  can  be  used  to  project  an  inventory 
to  any  future  period,  using  at  each  such  projection  the  input  data 
corresponding  to  time  period  OP4[2]-l.  This  will  be  described  in 
more  detail  in  the  discussion  of  PROJECT  and  in  chapter  VI. 


CHANGE 


This  function  enables  the  user  to  make  selective  alterations 
in  the  data  base.  To  use  CHANGE,  the  operator  types  CHANGE  ’DATA 
TYPE.1  Then  in  response  to  the  displayed  prompt  the  user  specifies 
the  data  compartment  which  is  to  be  changed.  The  program  then 
responds  with  further  prompts  asking  for  paygrades  and  time  periods 
at  which  the  change  is  to  be  made.  The  desired  change  is  then 
entered  in  the  form  specified  by  the  prompt. 

CHANGE  has  the  modular  structure  shown  in  figure  1;  each  of 
the  component  functions  is  called  CHANGEE.  At  the  present  time, 
CHANGEE  programs  have  been  written  for  the  data  types  "PAYGRADE 
LIMITS",  "CONTINUATION",  "EARLY  ROTATION",  "NORMAL  ROTATION",  "LATE 
ROTATION",  and  "ACCESSIONS."  Once  it  has  been  established  what 
type  of  alterations  are  most  useful  for  a  particular  data  type,  the 
corresponding  CHANGEE  program  can  be  written  or  modified  and  stored 
in  the  MOD  file. 


COMPTA 


This  function  is  used  to  give  an  approximation  to  the  number 
of  accessions  needed  each  period  to  bring  the  inventory  to  a 


25 


specified  level  at  the  end  of  a  specified  time  period.  If  it  is 
desired  to  have  a  total  inventory  I  at  the  end  of  period  T,  the 
inventory  must  first  be  projected  T  periods  using  current  input 
data.  Then  the  user  types  COMPTA,  and  enters  the  values  of  I  and  T 
when  prompted.  The  function  then  computes  an  estimate  of  the 
accessions  required  per  period  to  attain  the  desired  force  level  at 
period  T.  The  inventory  should  be  projected  again  to  T  periods 
using  the  new  accession  levels  estimated  by  COMPTA;  if  this 
projection  is  still  not  sufficiently  close  to  the  desired  level, 
COMPTA  can  be  repeated;  COMPTA  is  intended  to  be  used  iteratively 
in  conjunction  with  the  PROJECT  function. 


COMPTA 

ENTER  NEW  INVENTORY  SIZE 

i:j: 

ENTER  TIME  PERIOD  AT  WHICH  NEW  INVENTORY  IS  TO  BE  ATTAINED 


FIG.  8:  INPUT  FORMAT  FOR  COMPTA 


COMPTR 


This  function  is  intended  to  help  the  user  decide  what  type 
of  normal  rotation  patterns  will  provide  a  desired  personnel 
distribution  between  duty  types.  The  steps  needed  to  activate 
COMPTR  are  shown  in  figure  9 .  The  user  types  COMPTR  and  is 
prompted  to  enter  a  paygrade,  duty  type,  time  period  T^ ,  and  a 
time  period  T2  subsequent  to  T^ .  The  output  is  a  table  as 
shown  in  figure  10.  The  values  of  parameters  affecting  this 
computation  are  indicated.  In  this  example  the  user  was  interested 
in  analyzing  the  effects  of  rotation  changes  on  the  total  number  of 
personnel  in  paygrade  2  at  shore  in  period  2.  In  general,  the 
output  gives  the  number  of  personnel  rotating  to  the  duty  type  in 
period  T^  who  will  rotate  from  that  duty  type  in  period  T2  -  1, 
if  all  were  originally  sent  to  the  indicated  tour  length. 

In  order  to  clarify  the  use  of  this  function,  we  shall 
describe  the  basis  of  the  computation.  For  a  given  paygrade  and 
time  period  T2 ,  the  number  of  personnel  in  a  duty  type  is 
affected  by  how  many  rotate  from  that  duty  type  in  period  T2  -  1. 
This  number  in  turn,  is  affected  by  the  rotation  policy  at  periods 
prior  to  T2  -  1.  For  example,  personnel  rotating  into  the  duty 
type  in  period  T^  will  be  up  for  rotation  in  period  T2  -  1  only 
if  they  are  sent  to  tour  lengths  of  4 ( T2-T1-I) -3  to 
4(T2-T^-l)+3  quarters.  Therefore  by  changing  the  percentages 
of  personnel  who  are  sent  to  these  tour  lengths  in  period  T^ ,  the 
user  can  affect  the  size  of  the  duty-type  in  period  T2 •  For 
instance  in  figure  10  the  entry  in  the  last  column  of  the  first  row 
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COMPTR 

FOR  A  PAYGRADE  GROUP  (DEFINED  BY  OPS)  AND  DUTY  TYPE* 

COMPTR  DESCRIBES  THE  EFFECT  OF  CHANGES  IN  NORMAL  ROTATION 
AT  A  PERIOD  T1  ON  THE  TOTAL  PERSONNEL  IN  THE  DUTY  TYPE  AT  A 


SUBSEQUENT  PERIOD  T2> 
ENTER  PAYGRADE  GROUP 
□  : 

1  *  T1 

DUTY  type:  SHORE 
ENTER  PERIOD  T1 

D! 

ENTER  PERIOD  T2 
□  : 

FIG.  9: 

INPUT  FORMAT  FOR  COMPTR 
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is  the  number  of  people  who  came  from  sea  in  period  0  and  are 
scheduled  to  rotate  from  shore  in  period  2  -  in  this  example  it  is 
0.  If,  for  example,  the  sea-to-shore  rotation  pattern  for  period  0 
is  changed  so  that  5  percent  are  given  a  tour  length  of  7  quarters 
while  the  remaining  95  percent  are  sent  to  a  tour  length  of  6 
quarters,  then  the  consequent  change  in  the  shore  level  is  computed 
as  described  in  the  APL  expression  in  figure  10: 

0  -  (.95  x  8  +  .05  x  5)  «  -  8. 

That  is,  this  change  in  the  sea-to-shore  rotation  at  period  0  will 
cause  a  decrease  of  approximately  8  people  in  the  shore  level  in 
period  2. 

The  use  of  COMPTR  will  be  illustrated  further  in  chapter 

VI . 


FILL 


The  operation  of  READFILE,  WRITEFILE  and  TRANSFER  require  the 
data  files  to  be  filled  with  the  appropriately  shaped  data  arrays 
described  in  chapter  III.  Therefore  when  the  files  are  initially 
being  set  up,  the  components  are  first  filled  with  shaped  0-arrays. 
Once  this  is  done,  functions  using  WRITEFILE  as  a  subroutine  can  be 
used  to  automatically  load  input  data.  The  data  files  are  filled 
with  shaped  0-arrays  by  typing  FILL.  In  response  to  the  prompt, 
the  user  specifies  the  compartment  in  which  the  0-arrays  are  to  be 
placed.  FILL  also  initializes  the  check  parameters.  (The  initial 
values  of  the  check  parameters  will  be  discussed  in  detail  in  the 
description  of  the  CHECK  function.) 

The  user  may,  of  course,  develop  programs  for  loading  the 
data  files  which  would  directly  incorporate  FILL  or  obviate  its  use 
altogether . 


PRINT 


One  of  the  major  programs  in  ROTATIONMOD  is  the  print 
function  which  provides  access  to  all  the  data  types  listed  at  the 
beginning  of  chapter  III.  We  will  first  describe  in  general  terms 
how  the  user  operates  PRINT;  then  specific  input/output  formats 
will  be  illustrated. 

The  print  program  has  the  modular  structure  described  in 
figure  1.  Each  data  type  is  printed  by  a  function  called  PRINTT 
which  is  stored  in  the  appropriate  component  of  MOD  (the  component 
corresponding  to  a  given  data  type  can  easily  be  determined  from 
the  listing  of  PRINT  in  appendix  B) . 


29 


The  user  types  PRINT  'DATA  TYPE',  where  DATA  TYPE  is  one  of 
those  listed  in  table  3.  In  response  to  the  prompts,  desired 
paygrade  groups  and  time  periods  are  entered  as  numeric  vectors. 
Certain  data  types  will  also  require  the  further  specification  of  a 
duty-type  and/or  whether  the  output  will  be  in  the  form  of  an  array 
or  as  totals.  After  the  requested  duty  type  has  been  printed,  a 
prompt  will  ask  if  the  user  desires  to  see  another  duty  type.  If 
so,  the  user  responds  by  typing  yes  and  then  specifying  the  duty 
type.  Otherwise  he  types  no  and  the  program  will  continue  to  the 
next  time  period  or  paygrade  group.  The  program  can  be  terminated 
at  any  stage  where  input  is  requested  by  typing— ►.  Figure  11 
illustrates  these  possibilities. 

Additive  data  (see  table  2)  can  be  aggregated  by  use  of  the 
parameters  0P5,  which  defines  paygrade  groups,  and  0P6,  which 
defines  groupings  of  LOS  categories.  For  example,  if  0P6  =  1,  L 
data  from  all  LOS  categories  are  combined.  In  conjunction  with- 
this  value  of  0P6,  inventory  arrays  would  be  printed  as  a 
distribution  by  tour  lengths  as  illustrated  in  figure  12. 

We  shall  now  describe  input/output  formats  for  each  of  the 
data  types  in  table  2.  The  upper  portion  of  figure  13  shows  the 
input  format  for  billet  data.  The  lower  portion  is  output.  Since 
BILLETS  is  an  additive  data  type,  the  current  workspace  value  of 
0P5  is  printed  out.  This  defines  the  paygrade  groups  to  which  the 
output  refers.  In  this  example  the  number  of  billets  for  each  duty 
type  is  the  same  for  each  of  the  time  periods  0  <_  T  4. 

PAYGRADE  LIMITS  are  shown  in  the  sample  output  in  figure  14. 

Data  for  PROMOTION  PROBABILITIES,  ELIGIBLE  PROBABILITIES, 
CONTINUATION,  and  ADJUSTED  PROBABILITIES  have  the  output  format 
illustrated  for  continuaion  in  figure  15.  Since  these  are  not 
additive  data  types,  the  output  format  does  not  include  the  values 
of  0P5  or  0P6.  The  rows  correspond  to  LOS  categories,  and  the 
columns  correspond  to  paygrades .  In  the  example,  the  LOS  8 
continuation  rate  for  paygrade  group  2  is  0.8718.  That  is,  in 
paygrade  2  approximately  87  percent  of  this  LOS  continue  from  time 
period  3  to  period  4. 

Early  rotation  data  is  displayed  in  figure  16.  In  this 
example,  for  paygrade  3,  2.42  percent  of  the  personnel  on  shore 
duty  rotate  early  to  sea  duty  in  period  0 . 

An  example  of  the  normal  rotation  pattern  for  paygrade  2,  in 
time  period  1,  is  shown  in  figure  17.  In  this  illustration  almost 
90  percent  of  the  personnel  rotating  from  shore  to  sea  will  be  sent 
to  a  tour  length  of  16  quarters. 

A  typical  late  rotation  pattern  is  shown  in  figure  18  for 
paygrade  3  in  time  period  0.  In  this  case,  9.4  percent  of  the  sea 
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PRINT' INVENTORY' 

SPECIFY  DATA  COMPARTMENT < 0  OR  1> 

o: 

o 

PAYGEADE  GROUPS U  3 
TIME  PERIODS ♦ 0  1 
TOTALS  OR  ARRAY?  ARRAY 
DUTY  type;  sea 


(Sea  array  for  paygrade  1  in  period  0) 


DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE  PROCEEDING 
TO  THE  NEXT  PAYGRADE /TIME  PERIOD?  YES 
DUTY  type;  SHORE 


(Shore  array  for  paygrade  1  in  period  0) 


DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE  PROCEEDING 
TO  THE  NEXT  PAYGRADE/TIME  PERIOD?  NO 


(Sea  array  for  paygrade  1  in  period  1) 


FIG.  11;  EXAMPLE  OF  PRINT  SYNTAX 
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PRINT  1  BILLETS  * 

SPECIFY  DATA  COMPARTMENT ( 0  OR  1) 

□  : 

l 

PAYGRADE  GROUPS: 1 
TIME  PERIODS tO  1234 


BILLET  REQUIREMENTS  FOR  PAYGRADE  GROUP  »  1 

<  OP  5=1  1  2233445566  77) 


duty  type:  SEA  SHORE 


TM  =  0 
TM  =  1 
TM  *  2 
TM  «  3 
TM  =  4 


FIG.  13:  BILLET  OUTPUT  OR  PRINT 
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PRINT ' PAYGRADE  LIMITS ‘ 
SPECIFY  DATA  COMPARTMENT ( 0  OR  1) 

o: 

o 

PAYORADE  GROUPS :i  2  3  5 
TIME  PERIODS  JO  1  2  3  4 


I-’  A  Y  OR  AD E  O R  o U P  L I M I  V  S 

(0P5~1  1.  2  2  3  3  4  4  h  3  6 


6  7  7  > 


1 1  •»  *  -j  -- 


TM  ™  0  2645 

"CM  ==  '.I.  2645 

CM  »  2  2645 

TM  «  3  2645 

CM  --  4  2645 


1882 

2325 

703 

1882 

2325 

703 

1882 

2325 

703 

1882 

2325 

703 

1 882 

2325 

703 

FIG.  14:  PAYGRADE  LIMITS  OUTPUT  OF  PRINT 
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PRINT ' CONTINUATION  1 
SPECIFY  DATA  COMPARTMENT ( 0  OR  1) 
□  : 

0 

PAYGRADES: 1  2  3 
TIME  PERIODS: 3 
DUTY  type:  SEA 


CONTINUATION  RATES  FOR  PERIOD  ~  3 

DUTY -TYPE  :  SEA 


PG  » 

1 

2 

3 

LOS 

zz 

1 

0  *  9074 

1 4  0000 

0  4  5000 

i  OS 

s 

2 

0 4 8384 

0  4  8269 

0,8182 

LOS 

uu 

3 

0 4  8088 

0 4  7581 

0 4  9730 

LOS 

:::: 

4 

0 4  0860 

0  4  2605 

0 4  5392 

L  OS 

u:: 

5 

0 4  5000 

0 4  8704 

0  4  8908 

LOS 

6 

0  4  8000 

0 4  8243 

0,9013 

LOS 

::a 

7 

1 4  0000 

.0-8197 

0 , 9252 

LOS 

B 

0  4  0000 

|0  4  87181 

0 , 8483 

LOS 

9 

0  4  0000 

0,7273 

0,9189 

LOS 

uu 

10 

0 4  0000 

1 4  0000 

0,9231 

L  OS 

1 1 

0 4  0000 

1 4  0000 

0 , 9038 

LOS 

12 

0 . 0000 

0  4  8333 

0,9818 

1.  OS 

ss 

13 

1 4  0000 

1 4  0000 

0,9143 

1..  OS 

-u 

14 

0  4  0000 

1 4  0000 

0,9091 

L  OS 

vz 

15 

0  4  0000 

1 4  0000 

0 , 9600 

LOS 

;;u 

1 6 

0  4  0000 

1 4  0000 

0 , 9677 

1.  OS 

1 7 

0  4  0000 

1 4  0000 

1 , 0000 

LOS 

18 

0 4  0000 

0 4  0000 

1 , 0000 

i.  OS 

UL 

19 

0 4  0000 

0  4  0000 

0 4  7500 

LOS 

M* 

20 

0 4  0000 

0 4  0000 

0  4  0000 

LOS 

:u: 

21 

0 4  0000 

0 4  0000 

0  4  0000 

LOS 

;:u 

22 

0 4  0000 

0 4  0000 

0 , 0000 

1.  OS 

23 

0  4  0000 

0  4  0000 

0  4  5000 

LOS 

:::: 

24 

0  4  0000 

0  4  0000 

0  4  0000 

1  OS 

zz 

25 

0  4  0000 

0 4  0000 

0 . 0000 

LOS 

uu 

26 

0 4  0000 

0 4  0000 

0  4  0000 

L  OS 

u:: 

27 

0  4  0000 

0 4  0000 

0  4  0000 

1.  OS 

28 

0  4  0000 

0 4  0000 

0 4  0000 

t.  OS 

29 

0 4  0000 

0  4  0000 

0 . 0000 

1  OS 

IS! 

30 

0,0000 

0  4  0000 

0,0000 

L  OS 

uu 

31 

0  4  0000 

0 4  0000 

0  4  0000 

FIG.  15:  CONTINUATION  OUTPUT  OF  PRINT 
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PRINT ' EARLY  ROTATION  1 
SPECIFY  DATA  COMPARTMENT ( 0  OR  1) 
□  : 

0 

PAYGEADES: 1  2  3  6  7 
TIME  PERIODS  JO 


EARLY  ROTATION  IN  PERIOD  *  0 


RO'i 

YiTIONi 

91." ->9  H 

SE  *NT 

SINSE 

S  IT;  NT 

NT  sCE 

NT;  GH 

PO 

:!. 

0 , 0573 

0 « 0013 

0.1471 

0,0000 

0 < 0000 

0 < oooo 

PC 

2 

0.1252 

0  ,  0000 

0.0732 

0 , 0046 

0 , 0000 

0 . 5000 

PC 

=  3 

0 ♦ 0735 

0 ♦ 0000 

FnoSl 

0 , 0000 

1 « 0000 

1 , OOOO 

PC 

~  6 

0.1190 

0 , 0000 

0,0 109 

0 , 0000 

1 , 0000 

0, oooo 

PG 

"7 

....  f 

0  *  2857 

o ♦ oooo 

0 » 0370 

0 , 0000 

1 , oooo 

1 , oooo 

FIG.  16:  EARLY  ROTATION  OUTPUT  OF  PRINT 
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PRINT ' NORMAL  ROTATION ' 

SPECIFY  DATA  COMPARTMENT ( 0  OR  1) 

□  : 

o 

PAYGRADESJ2 
TIME  PERIODS* 1 


NORMAL  ROTATION  FOR  PAYGRADE  PC  ~  2  IN  PERIOD  TM  “=  1 


ROTATION? 

0  E  S 1  "1 

SR  -»NT 

SI-HSE 

SIT;- NT 

NT-»SE 

NT*  Sll 

TL 

:::: 

:l. 

0  ♦  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

TL 

::n 

2 

0 *  0000 

0  < 0000 

0  *  0000 

0  *  0000 

0  * 0000 

0  *  0000 

TL 

3 

0  *  0000 

0  *  0000 

0*0000 

0 . 0000 

0.0000 

0  *  0000 

TL 

4 

0*0000 

0*0000 

0*0000 

0  *  0000 

0  *  0000 

0  *  0000 

TL 

s:: 

5 

0  *  0000 

0  *  0000 

0  *  0000 

0.0000 

0  *  0000 

0  *  0000 

TL 

s:: 

6 

0*0100 

0 , 0000 

0 *  0000 

0  *  0000 

0  *  0000 

0  *  0050 

TL 

:::: 

"V 

/ 

0 ♦ 0400 

0*0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0200 

TL 

:::: 

8 

0*8991 

0 ♦ 0009 

0  *  0000 

0*0009 

0  *  0000 

0  *  4500 

TL 

:::: 

9 

0  *  0400 

0 . 0000 

0  *  0000 

0  *  0000 

0*0000 

0  *  0200 

TL 

10 

0*0100 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0050 

TL 

:::: 

U 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

TL 

:::: 

12 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

TL 

:::: 

13 

0  *  0000 

0 < 0000 

0  *  0000 

0 *  0000 

0,0000 

0  *  0000 

TL 

:::: 

1 4 

0  *  0000 

0  *  0000 

0*0100 

0 . 0000 

0  *  0050 

0  *  0000 

TL 

s:: 

15 

0  *  0000 

0  *  0000 

0  *  0400 

0  *  0000 

0  *  0200 

0  *  0000 

TL 

16 

0  *  0000 

0  < 0000 

EH 

0 ♦ 0000 

0  *  4500 

0 . 0000 

TL 

17 

0*0000 

0  *  0000 

0*0400 

0  *  0000 

0  *  0200 

0 , 0000 

TL 

:::: 

1 8 

0  *  0000 

0  *  0000 

0*01 00 

0  *  0000 

0  *  0050 

0  *  0000 

TL 

19 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

0  *  0000 

TL 

r;: 

20 

0  *  0000 

0  *  0000 

0 . 0000 

0  *  0000 

0  *  0000 

0  *  0000 

FIG.  17:  NORMAL  ROTATION  OUTPUT  OF  PRINT 
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PRINT ' LATE  ROTATION' 

SPECIFY  DATA  COMPARTMENT ( 0  OR  1) 
□  J 

0 

PAYGRADES  J  3 
TIME  PERIODS  JO 


LATE 

ROTATION 

FOR  PAYGRADE 

PG  =  3 

IN  PERIOD 

DUTY 

TYPE  i 

SEA 

SHORE 

NEUTRAL. 

Tl... 

:::: 

l 

0  *  0000 

o *  0000 

o *  0000 

TL 

s:: 

p 

0 4 0000 

0  *  0000 

0  *  0000 

TL 

:::: 

3 

0 ♦ 0000 

0*0000 

0*0000 

TL 

:::: 

4 

6 * oooo 

0  *  0000 

0  *  0000 

TL 

:::: 

w 

<0*024(3 

0* 1040 

0  *  0000 

TL 

6 

0  < 0030 

0  *  0270 

0  *  0000 

TL 

:::: 

7 

0*0140 

0*0130 

0  *  0000 

TL 

:::: 

8 

0  *  0070 

0  *  0 1 00 

0  *  0000 

TL 

:::: 

9 

0*0100 

0*0370 

0 , 0000 

TL 

r:: 

10 

0  *  0000 

0  *  0070 

0  *  0000 

TL 

:::: 

1 1 

0  *  0030 

0  *  0030 

0  *  0000 

TL 

:::: 

1 2 

0  *  0000 

O 

ro 

o 

o 

o 

0 , 0000 

TL 

13 

0  *  0030 

0*0000 

0*0000 

TL 

1 4 

0  *  0000 

0*0130 

o *  0000 

Tl... 

15 

0  *  0030 

0  *  0030 

o 

o 

o 

:w: 

^*4 

Tl... 

:::: 

1 6 

0  *  0000 

0  *  0030 

0 » 0000 

TL 

17 

o ♦ 0000 

0  *  0000 

0  *  0000 

TL 

r::: 

10 

0*0000 

0  *  0000 

0  *  0000 

TL 

:::: 

19 

0  *  0000 

0 *  0000 

0  *  0000 

TL 

:::: 

20 

0  *  0000 

0 » 0000 

0  *  0000 

FIG.  18:  LATE  ROTATION  OUTPUT  OF  PRINT 
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inventory  normally  scheduled  to  rotate  in  this  period  will  have 
their  PRD's  increased  to  5  additional  quarters. 

The  data  types  INVENTORY,  ACCESSIONS,  PROMOTIONS,  SURVIVING 
INVENTORY,  and  PREPARED  INVENTORY  all  have  the  same  output  format. 
There  are  two  types  of  output  available  for  these  data  types:  the 
matrix  array  corresponding  to  a  duty  type,  and  the  total  of  this 
array.  An  example  of  the  "totals"  format  is  shown  in  figure  19. 
The  total  for  each  duty  type  is  broken  out  into  rotating  and 
non-rotating  totals. 

Hence,  in  this  instance,  the  model  has  projected  a  total  of 
1447  personnel  in  paygrade  3  at  sea  in  period  2,  and  427  of  these 
will  rotate  to  a  new  duty  type  during  the  period. 

The  final  output  format  is  associated  with  summary  data,  and 
is  shown  in  figure  20.  These  are  paygrade  totals.  All  of  this 
data  is  additive,  and  the  last  column  indicates  aggregate  data  for 
the  whole  rating.  Note  that  the  "promotion  into"  row  is  zero. 

This  corresponds  to  the  fact  that,  by  definition,  there  are  no 
promotions  into  a  rating. 


PROJECT 

This  is  the  main  program  in  ROTATIONMOD .  Its  purpose  is  to 
project  the  inventory  at  the  beginning  of  period  T  -  1  to  the 
beginning  of  period  T.  The  user  simply  types  PROJECT  T.  However, 
several  conditions  must  be  satisfied: 

•  <  T  _<  T 

•  The  inventory  has  been  projected  to  period  T  -  1 

•  Adjusted  promotion  probabilities  for  period  T  -  1 
have  been  computed 

•  Subsequent  to  projection  and  computation  of  adjusted 
probabilities,  no  input  data  for  periods  _<  T  -  1  have 
been  altered. 

Violation  of  any  of  these  conditions  results  in  an  error  message 
and  termination  of  the  program. 

The  inventory  is  projected  by  the  sequence  of  steps  shown  in 
figure  21.  This  loop  is  repeated  for  each  paygrade. 

The  output  of  PROJECT  T  is  of  two  types:  inventory  data  and 
summary  data.  Normally,  when  OP4[l]  =  0,  this  data  is  stored  in 
the  period  T  space  in  FILE4 ,  as  we  have  previously  described  in 
chapter  II.  However,  if  OP4[l]=l,  PROJECT  is  modified  to  read 
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FIG.  20:  SUMMARY  DATA 


FIG.  21:  STEPS  IN  PROJECT 
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inventory  data  from  the  space  corresponding  to  time  period  =  OP4[2] 
and  its  other  input  data  from  the  space  corresponding  to  a  time 
period  =  OP4[2]  -  1.  The  inventory  which  is  projected  on  the  basis 
of  this  input  is  stored  in  the  space  corresponding  to  time  period  = 
OP4[2],  destroying  previous  stored  data.  By  setting  0P4  ◄ — 1,  T 
the  user  can  thus  project  the  inventory  stored  in  the  time  period  T 
space  (using  constant  input  data  from  the  time  period  T-l  space)  to 
any  number  of  future  periods.  Since  inventories  from  intervening 
periods  are  destroyed  in  this  process,  the  operator  should  obtain  a 
hard  copy  printout  of  all  desired  information  before  proceeding  to 
the  next  projection.  Circumstances  in  which  this  option  are  useful 
will  be  described  in  chapter  VI. 

The  settings  of  0P2  and  0P3  determine  which  combination  of 
the  three  rotation  categories 

•  Early  rotation  (0P3  =  1) 

•  Normal  rotation 

•  Late  rotation  (0P2  =  1) 

the  projection  program  utilizes  (see  chapter  IV  for  a  discussion  of 
the  parameters  0P2  and  0P3) .  The  setting  of  0P1  determines  the 
data  compartment  that  PROJECT  reads  from. 


STATUS 

When  the  user  types  STATUS,  current  values  of  all  parameters 
are  displayed  as  shown  in  figure  22.  The  interpretation  of  the 
display  below  the  dotted  line  has  already  been  discussed  in  chapter 
IV  in  conjunction  with  the  check  parameters. 


TRANSFER 

This  function  is  used  to  transfer  specified  data  types  from 
one  data  file  compartment  to  another.  The  user  types  TRANSFER, 
then  indicates  to  which  compartment  data  is  to  be  transferred. 

The  user  also  has  the  option  of  transfering  an  entire  data  file  or 
a  specific  data  type. 

In  order  for  this  function  to  work,  the  data  files  must  be 
filled  with  the  shaped  data  arrays  described  in  chapter  III. 


READFILE  and  WRITEFILE 

These  two  functions  are  the  primary  means  of  access  to  the 
data  files.  As  such,  they  appear  as  subroutines  in  many  of  the 
other  ROTATIONMOD  functions.  These  two  functions  manipulate  the 
data  units  which  were  defined  in  chapter  III.  The  syntax  of  both 
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FIG.  22:  STATUS  OUTPUT 
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functions  are  the  same.  The  user  types  READFILE  X,  where  X  is  a 
vector  whose  4-components  specify  a  file  compartment,  a  data  type, 
a  paygrade  and  a  time  period  respectively  (1  _<  X[2]  _<  12),  where 
the  value  of  X [ 2 ]  defines  the  data  type  as  indicated  in  table  2. 

The  data  unit  specified  by  X  is  read  from  the  data  file  and  placed 
in  the  workspace.  Similarly,  WRITEFILE  X  stores  the  'data  unit 
corresponding  to  X[2]  in  the  file  space  defined  by  the  coordinates 
X 1 1]  ,  X [ 3 ]  and  X[4]  .  If  the  corresponding  data  unit  is  not  in  the 
workspace  an  error  results  and  WRITEFILE  is  suspended.  These 
functions  can  be  used  as  subroutines  to  functions  for  automatically 
loading  or  altering  the  data  base,  or  the  user  may  apply  them 
directly. 

This  completes  our  description  of  the  user  oriented 
functions.  Unless  it  is  desired  to  make  alterations  in  the  model, 
it  is  not  necessary  to  be  familiar  with  the  "system"  functions 
described  in  the  next  section. 


System  Functions 

These  functions  occur  as  subroutines  in  the  user-oriented 
programs  previously  described.  They  are  generally  more  technical 
than  the  user-oriented  functions,  and  so  we  adopt  a  more  symbolic 
description  throughout  this  section. 


ALTER 


Syntax:  J  ALTER  X 

J  is  an  integer  in  the  interval  a_<J£6.  Xisa  3-component 
vector  specifying  a  data  compartment,  paygrade  and  time  period. 

The  output,  a  3-dimentional  array  called  HOLD,  is  one  of  the 
following  data-types: 

•  (J  =  1)  The  inventory  array  specified  by  X. 

•  (J  =  2)  The  late  rotating  portion  of  the  inventory 
reassigned  to  their  new  tour  length  cells. 

•  (J  =  3)  The  normal  inventory  after  late  rotating 
personnel  have  been  removed. 

•  (J  =  4  or  5)  The  portion  of  the  inventory  subject 
to  early  rotation. 

•  (J  =  6)  Normal  inventory  after  early  rotating 
personnel  have  been  removed. 
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For  J  =  2,  ALTER  produces  an  array  of  the  same  dimensions  as 
inventory.  The  (a,  b,  c)-th  component  is  the  total  number  of 
personnel  in  duty  type  a  and  LOS  b  who  have  been  ressigned  to  a  new 
tour  length  c.  The  early  rotating  portion  of  the  inventory  is 
distributed  equally  in  tour  length  components  1  through  4. 

Since  there  are  6  rotation  types  (see  chapter  III),  the  early 
rotating  inventory  is  further  divided  into  two  3-dimensional 
arrays,  one  corresponding  to  J  =  4,  and  the  other  corresponding  to 
J  =  5.  For  J  =  4  the  (a,  b,  c)-th  entry  is  the  total  number  of 
early  rotating  personnel  in  LOS  b  with  tour  length  c  (1  _<  c  £  4) 
whose  rotation  type  is  2a-l  (see  page  14).  For  J  =  5,  the  first 
component  a  of  the  HOLD  array  specifies  early  rotation  type  2a. 

This  division  was  made  in  order  to  avoid  output  arrays  of  more  than 
3-dimensions. 

ALTER  is  used  as  a  subroutine  in  PREPINV  to  separate 
(according  to  the  particular  settings  of  0P2  and  0P3)  the  inventory 
array  into  early,  normal  and  late  rotating  components. 


ATTRITION 

Syntax:  ATTRITION  X. 

X  is  the  same  vector  as  in  ALTER.  If  0P4[1]  =  0,  this 
function  applies  the  appropriate  continuation  rates  to  the 
inventory  specified  by  X,  and  produces  a  new  inventory  consisting 
of  the  survivors  in  each  cell  (duty-type,  LOS,  tour  length).  When 
OP4 [ 1]  =  1,  the  normal  operation  of  attrition  is  altered  so  that  it 
computes  a  surviving  inventory  based  on  the  X[3]  +  1  time  period 
inventory  but  using  X[3]  period  continuation  rates. 

The  function  is  a  subroutine  of  ADJPROB,  PROJECT  and 

ALTER. 


CHECK 


Syntax:  X  CHECK  Z 

X  is  a  binary  digit,  and  Z  is  a  2-component  vector.  CHECK  is 
a  regulatory  function  which  appears  in  ADJPROB  and  PROJECT.  It 
serves  two  purposes.  When  X  =  0,  the  CHECK  routine  determines 
whether  the  check  parameter  COA,  CIA,  COP  or  C1P,  which  is 
specified  by  Z [ 1 ]  =  1,  2,  3,  or  4,  respectively,  has  a  non-zero 
entry  in  its  first  Z[2]  components  (i.e.,  whether  these  input  data 
files  have  been  altered  since  the  last  projection) .  When  X  =  0 
CHECK  has  an  output  CH .  If  data  has  been  altered,  CH  =  0  and  CHECK 
gives  an  error  message.  Otherwise  CH  =  1. 


46 


When  X  =  1,  CHECK  defines  the  O-component  check  parameter 
corresponding  to  Z [ 1 ]  for  time  period  Z [ 2 ]  (see  chapter  IV),  and 
stores  it  in  the  data  files. 


FFF 

Syntax :  FFF 

This  function  is  a  subroutine  of  ADJPROB;  it  does  the 
computation  of  adjusted  probabilities.  Paygrade  limits  and 
available  positions,  computed  by  ADJPROB,  are  inputs  to  FFF.  The 
basis  for  this  computation  is  described  in  appendix  A. 


FILEALT 

Syntax:  X  FILEALT  T 

X  is  a  2-component  binary  vector,  T  is  the  time  period  in 
which  an  alteration  in  file  data  is  to  be  made.  The  function 
FILEALT  is  designed  to  be  a  subroutine  in  any  program  (e.g.  CHANGE) 
which  alters  data  file  contents.  Its  effect  is  to  place  a  1  in 
component  T  +  1  of  the  check  parameter  defined  by  X  as  shown  in 
figure  23. 


x  Check  parameter 


0  0  COA 
0  1  COP 
1  0  CIA 
1  1  C1P 

FIG.  23:  DETERMINATION  OF  CHECK  PARAMETERS  IN  FILEALT 


GROUP 

Syntax:  OP6  GROUP  X. 

Here  X  is  a  4-component  vector  specifying  a  data  compartment, 
data  type,  a  paygrade  group,  as  determined  by  the  current  value  of 
OP5  (explained  in  chapter  IV),  and  a  time  period. 

GROUP  is  a  subroutine  in  those  print  functions  corresponding 
to  additive  data  types.  It  aggregates  the  appropriate  data  for  the 
paygrade  groups  or  LOS  groups  defined  by  OP5  and  OP6. 
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HEADER 


Syntax:  HEADER  I 

I  is  a  positive  integer  in  1  I  <  6. 

HEADER  is  a  function  which  prompts  the  user  to  specify 
input  data;  the  type  of  data  depends  on  the  index  I  as  shown  in 
figure  24.  When  1=1,  the  user  is  asked  to  respond  with  a  data 

I  Prompt 


1  DATA  TYPE : 

2  DUTY  TYPE: 

3  PAYGRADES: 

4  PAYGRADE  GROUPS: 

5  TIME  PERIODS: 

6  TOTALS  OR  ARRAY? 


FIG.  24:  INDICES  FOR  HEADER 


type;  when  1=2  the  user  must  respond  with  a  duty  type;  when  I  = 

3,  a  rotation  type  is  required  (see  page  15);  for  1=4,  paygrade 
groups  must  be  described  by  a  numeric  vector;  1=5  requires  the 
same  response  for  time  periods;  and  when  1=6,  the  user  response 
is  "totals"  or  "array."  An  alternative  response  to  all  of  these 
prompts  is  to  type  ,  and  this  will  terminate  the  program  in 

which  HEADER  is  embedded.  The  output  of  HEADER  is  an  integer  BR  in 
the  range  0  _<  BR  _<  3  whose  value  is  interpreted  as  follows: 

•  ( BR  =  0)  Invalid  user  input.  In  this  case  an  error 
message  results,  and  the  program  in  which  HEADER  is 
embedded  is  terminated. 

•  (BR  =  1)  This  is  in  response  to  ,L- ,  and  indicates 
termination  of  the  program  in  which  HEADER  is 
embedded . 


•  ( BR  =  3)  This  value  occurs  when  the  user  has 

entered  a  valid  input  response  and  signals  the 
beginning  of  the  function  in  which  HEADER  is  embedded. 
(Note:  at  one  point  in  the  development  of  the  model 
the  value  BR  =  2  was  used.  Subsequent  changes  rendered 
this  case  unnecessary.) 

HEADER  6  translates  the  user's  response  into  a  binary  digit  H, 
where 


H 


if  user  enters  totals 
if  user  enters  array 
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The  print  functions  in  which  HEADER  6  occur  use  the  value  of  H  to 
decide  whether  to  print  arrays  or  totals. 

The  reason  for  introducing  the  variable  BR  is  as  follows. 
Normally,  because  of  the  structure  of  PRINT,  if  the  user  terminates 
the  program  before  completion  this  will  leave  a  PRINTT  function  in 
the  workspace  which  must  be  expunged  before  PRINT  can  be  used 
again.  The  introduction  of  the  variable  BR  allows  the  user  to 
terminate  in  response  to  any  HEADER  prompt  without  encountering 
this  difficulty.  For  when  BR  =  1,  PRINTT  will  branch  to  its  last 
step  and  is  automatically  expunged  by  the  calling  program. 


PREPINV 

Syntax:  PREPINV  X 

X  is  the  same  vector  as  in  ALTER. 

PREPINV  is  a  subroutine  of  PROJECT  and  GROUP,  whose  function 
is  to  prepare  the  inventory  for  rotation.  First,  the  specified 
inventory  is  subjected  to  attrition;  then,  according  to  the 
settings  of  0P2  and  0P3,  the  surviving  inventory  is  divided  into 
early  and  normally  rotating  components  (the  late  rotating  component 
after  being  assigned  to  new  tour  length  positions  is  added  to  the 
normal  inventory).  Finally,  for  each  of  these  components, 
promotions  into  and  out  of  the  paygrade  are  computed  and  a  new 
inventory  (still  separated  into  two  components)  after  promotions  is 
the  result.  This  "prepared"  inventory  is  ready  to  be  rotated. 

Because  of  workspace  limitations,  the  prepared  inventory 
arrays  defined  by  PREPINV  are  represented  by  a  (0,  l)-array  and  a 
vector  whose  components  are  the  non-zero  entries  of  the  array  (this 
decomposition  has  already  been  described  in  chapter  III)  . 


PRIN 


Syntax:  I  PRIN  X 

I  is  either  1  or  2 ,  and  X  is  a  data  array. 

PRIN  is  a  format  function  which  appears  in  PRINT.  Its 
purpose  is  to  format  the  output  of  the  various  PRINTT  functions. 

This  completes  our  discussion  of  the  structure  of 
ROTATIONMOD .  In  the  next  chapter  some  general  principles  for 
operating  the  model  are  described. 
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CHAPTER  VI 


USING  ROTATIONMOD 


Chapter  I  consists  of  a  general  description  of  the  expanded 
rotation  model  and  its  characteristics.  In  this  chapter  those 
remarks  will  be  amplified  and  extended,  and  a  sample  analysis  will 
be  presented.  Although  a  detailed  knowledge  of  APL  is  not  required 
for  operation  of  the  model,  it  is  assumed  that  the  user  is  familiar 
with  APL  notation  and  the  management  of  APL  workspaces. 

Applications  of  the  model  include: 

•  projecting  current  inventory  to  a  five  year 
horizon 

•  determining  what  alterations  in  accessions  and 
rotation  policies  will  provide  desired  paygrade 
endstrengths  and  sea/shore  distributions  of  personnel 
throughout  the  five  year  projection  period 

•  using  this  projection  as  a  baseline  to  modify 
controllable  manpower  variables  to  produce  a  desired 
inventory  profile 

•  detecting  changes  in  uncontrollable  variables  by 
comparison  of  actual  and  projected  inventories 

•  answering  "what  if"  questions. 

The  variables  which  influence  the  five  year  projections  are 
endstrength  requirements,  accessions,  continuation  rates  and 
promotions;  however,  the  variables  which  can  be  manipulated  by  the 
user  (within  real-world  constraints  of  course)  are  generally 
limited  to  accessions,  and  rotation.  Although  incentives  of 
various  sorts  may  influence  continuation,  the  Navy  cannot  affect  it 
very  much.  Moreover,  the  relations  between  continuation  and  fac¬ 
tors  which  influence  it  are  not  well  understood  in  any  quantitative 
sense.  Endstrength  requirements  are  pretty  well  determined,  and 
the  computation  of  adjusted  promotion  probabilities  is  built  into 
the  model. 

Substantial  changes  in  either  early  or  late  rotation  will 
result  in  increased  personnel  costs  and  are  disruptive  to  both 
morale  and  the  stability  of  sea/shore  distributions.  Thus 
systematic  manipulation  of  these  variables  would  not  be  desirable. 
The  role  of  early  and  late  rotation  in  the  modeling  process  should 
be  restricted  to  accounting  for  PRD  changes  due  to  unavoidable 
factors,  such  as  operational  holds,  humanitarian  considerations, 
leave  between  duty  tours,  and  participation  in  schools. 
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Once  a  suitable  inventory  profile  has  been  projected,  by 
appropriately  altering  accessions  and  rotation  patterns  as 
necessary,  the  data  base  which  corresponds  to  this  profile  can  be 
used  as  a  guide  to  ERCs  and  detailers  in  making  actual  personnel 
assignments.  To  the  extent  that  practice  conforms  to  the  policies 
described  in  the  data  base,  the  real-world  personnel  distribution 
will  reflect  the  desirable  characteristics  of  the  projection. 


The  first  step  in  using  ROTATIONMOD  is  to  define  the  parame¬ 
ters  K,  L,  M,  and  T.  These  should  be  saved  in  the  workspace,  and 
they  remain  fixed  throughout  the  entire  analysis  of  the  particular 
community  or  rating  being  considered.  Normally  K  =  7  (there  are 
nine  paygrades,  but  the  first  three  are  usually  not  distinguished), 
L  =  31,  M  =  20,  and  T  =  5  (due  to  file  space  limitations,  larger 
values  of  T  cannot  conveniently  be  accommodated) .  Next  the  initial 
values  of  the  parameters  OPl,  OP2,  OP3,  OP4,  OP5  and  OP6  should  be 
set.  These  define  the  normal  mode  of  operation  of  the  functions, 
and  should  also  be  saved  in  the  workspace  so  that  whenever  it  is 
loaded,  the  parameters  will  be  automatically  reset  to  these  values. 
For  example,  the  normal  setting  for  operation  of  the  model  would  be 
OPl-« — 0,  OP2-* — Op3-« — 1,  OP4  •* —  0,0,  OP5 •* —  1 ,  1,  .  .  .  K,  K  and  OP6-*— 
1,  1,  ...  L,  L.  ROTATIONMOD  will  then  utilize  data  from  the 

0-compartment.  With  the  indicated  setting  of  OP2  and  OP3,  all 
three  types  of  rotation  data  will  be  used  in  projecting  the  inven¬ 
tory.  The  projected  inventory  for  time  period  T  will  be  based  on 
period  T-l  input  data.  Also,  paygrade  groups  and  LOS  groups  will 
correspond  to  the  normal  paygrades  and  LOS  categories  determined  by 
K  and  L.  At  all  times  the  user  must  exercise  caution  to  see  that 
"the  parameters  are  appropriately  defined  for  the  purpose  at  hand. 
Their  current  values  can  be  checked  by  typing  STATUS. 


Using  FILL,  the  following  data  files  can  be  loaded  with 
appropriately  shaped  0-arrays: 


•  Billets 

•  Paygrade  limits 

•  Promotion  probabilities 

•  Eligible  probabilities 

•  Continuation 

•  Early  rotation 

•  Normal  rotation 

•  Late  rotation 

•  Accessions 

•  Adjusted  probabilities 

•  Inventory 

•  Summary 


After  this  has  been  done,  programs  for  automatically  loading  data 
by  data  units,  which  incorporate  the  WRITEFILE  function,  can  be 
used  to  enter  the  data  base.  Alternatively,  the  user  may  wish  to 
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develop  other  methods  for  loading  the  data  files  which  do  not  use 
FILL  or  the  WRITEFILE  function. 

The  data  types  and  their  structure  have  been  discussed  in 
chapter  III;  however,  some  additional  remarks  are  appropriate  here. 
Historial  data  for  the  community  under  consideration  can  be 
obtained  from  the  enlisted  master  record  (EMR).  This  includes 
promotion  probabilities,  "LOS"  continuation  rates,  rotation  data, 
and  accessions.  Billet  requirements  are  determined  by  Navy  manning 
policies  in  conjunction  with  paygrade  endstrength  limits  imposed  by 
Congress.  For  data  types  such  as  promotion  probabilities  and 
continuation  it  may  be  useful  to  use  the  averaged  data  from  several 
periods.  Eligible  probabilities  depend  on  length  in  service 
requirements  and  test  scores.  When  the  model  was  applied  to 
several  test  communities,  eligible  probabilities  were  estimated  by 
taking  the  maximum  value  of  1  and  1.5  times  the  historial 
probabilities.  This  gives  an  eligible  probability  distribution 
which  is  similar  to  the  historial  distribution,  and  at  the  same 
time  allows  the  model  to  respond  to  alterations  in  endstrength 
requirements  or  changes  in  other  variables  which  affect  promo¬ 
tions  . 


Initially  the  same  data  can  be  entered  for  each  projection 
period  unless  there  are  specific  anticipated  (or  desired)  altera¬ 
tions  from  period  to  period;  e .g .  the  user  may  wish  to  analyze  the 
effect  that  a  predicted  decline  in  continuation  would  have  on 
filling  sea  billets  under  the  present  rotation  policy. 

The  inventory  is  projected  to  T  periods  by  alternately 
running  ADJPROB  T  and  PROJECT  (T+l)  for  T  =  0,1,  . ..,  T-l.  When 

OP4  =  0,0  the  results  of  each  projection  are  stored  in  the  data 
file  in  the  appropriate  time  period  space.  The  complete  data  base, 
including  these  projected  inventories,  can  be  accessed  by  the  PRINT 
function.  If  alterations  in  input  data,  such  as  rotation  patterns 
or  accessions,  are  desired,  a  copy  of  the  original  projection  and 
input  data  can  be  transferred  to  the  opposite  compartment  by  using 
the  TRANSFER  function.  As  long  as  OPl  is  not  changed,  this  data 
will  remain  intact  while  the  original  input  can  be  modified.  After 
changing  input  data,  another  projection  can  be  run  to  see  the 
consequences.  Thus  an  important  application  of  the  model  is  to 
answer  "what  if"  type  questions:  what  will  a  10  percent  change  in 
continuation  do  to  the  sea/shore  distribution;  or  what  are  future 
consequences  of  changing  rotation  patterns? 

Another  important  feature  of  the  model  lies  in  its  interac¬ 
tive  capability,  allowing  complex  interrelations  between  the  data 
types,  and  a  large  number  of  possible  alterations  to  achieve  a 
given  inventory  profile.  This  allows  the  user  to  attain  desired 
goals — or  determine  that  they  are  inconsistent — through  a  series  of 
iterative  steps  in  which  a  projection  is  alternated  with  selective 
modification  of  the  data  base.  The  users'  knowledge  and  intuition 
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concerning  the  sea/shore  rotation  process  will  be  helpful  in 
deciding  what  kind  of  changes  are  necessary  to  project  a  desired 
result.  User-oriented  functions,  such  as  COMPTA  and  COMPTR  help 
the  operator  estimate  the  magnitude  of  required  changes. 

The  parameter  0P4  provides  the  user  with  a  means  of  extending 
the  projection  capability  of  the  model  beyond  its  normal  limits. 
However,  when  this  option  is  used,  each  projection  destroys  the 
previous  inventory  so  the  user  must  obtain  hard  copy  data  from  that 
inventory  before  proceeding  with  a  further  projection.  Also,  the 
input  data  (other  than  inventory  to  be  projected)  cannot  be  altered 
for  each  projection,  but  must  remain  independent  of  time.  To  use 
this  option  the  operator  sets  0P4-* — 1,T  where  T  is  some  time  period 
in  the  interval  1  <_  T  <,  T.  Then  the  inventory  to  be  projected  is 
that  which  is  stored  in  the  time  period  T  space,  and  the  remaining 
input  data  on  which  the  projection  is  based  (i.e.  continuation, 
rotation,  accessions,  etc.)  is  that  which  is  in  the  T  -  1  time 
period  space.  For  example,  the  operator  may  project  the  inventory 
normally  to  T  periods,  then  set  0P4-^-l,T  and  project  further  to  a 
period  T' ,  say,  with  the  limitations  of  a  constant  time  period 
T  -  1  input  for  each  projection  and  loss  of  the  projected  inven¬ 
tories  for  intervening  periods  between  T  and  T' . 

We  shall  now  give  an  example  of  the  application  of 
ROTATIONMOD.  The  initial  inventory  is  the  SeaBee  community  in 
1976.  The  other  input  data  was  obtained  by  comparing  the  1976  EMR 
with  the  1977  EMR.  For  the  first  set  of  projections,  the  paygrade 
limits  that  were  used  at  each  of  the  five  projection  periods  were 
simply  the  paygrade  endstrengths  in  1976.  The  results  of  this 
initial  projection  are  summarized  in  figures  25  and  26.  Figure  26 
shows  a  more  detailed  breakdown  of  the  sea/shore  distribution  for 
paygrade  group  3.  From  figure  25  we  see  that  the  projected  SeaBee 
community  will  sustain  a  loss  of  1,134  personnel  in  this  5-year 
period.  By  examining  more  detailed  output  (indicated  here  for 
paygrade  group  3)  for  each  paygrade  we  find  that  947  of  the  losses 
will  be  from  sea  duty.  Suppose  that  it  is  desired  to  attain  an 
overall  force  size  of  9,700  within  3  years,  with  the  new  paygrade 
limits  indicated  in  figure  27.  By  using  COMPTA,  we  obtain  an 
estimate  of  1,872  as  the  number  of  accessions  needed  per  period 
over  3  years  to  attain  the  desired  force  level;  this  requires  an 
increase  of  268  per  year.  Since  most  accessions  come  into  paygrade 
group  1,  this  is  where  the  additional  268  personnel  would  enter. 
Using  CHANGE,  the  original  accession  array  for  this  paygrade  can  be 
scaled  by  an  appropriate  factor  so  that  the  new  accessions  total  is 
1,827.  There  are  clearly  many  other  ways  of  increasing  accessions, 
and  each  of  these  will  have  implications  for  the  sea/shore  process. 
The  user  must  be  aware  of  a  variety  of  options. 

After  accessions  were  changed,  the  inventory  was  again 
projected  for  3  periods.  The  rating  totals  for  each  of  these 
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periods  are  shown  in  figure  28.  At  the  third  period,  the 
projection  is  very  close  to  the  desired  goal  of  9,700. 
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FIG.  28:  SECOND  PROJECTION  OF  SEABEE  RATING  USING 
ORIGINAL  ENDSTRENGTHS  AND  ASSESSIONS 


In  the  next  step  the  new  paygrade  limits  were  entered  and  the 
inventory  was  again  projected  to  3  years.  The  result  is  shown  in 
figure  29;  the  new  paygrade  limits  have  affected  the  rough 
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FIG.  29:  THIRD  PROJECTION  OF  SEABEE  RATING  USING  NEW 
ENDSTRENGTHS  AND  INCREASED  ACCESSIONS 


estimates  of  continuation  on  which  the  COMPTA  calculations  are 
based.  Therefore  it  was  necessary  to  reestimate  needed  accessions 
per  period  and  project  again.  The  projection  shown  in  figure  30  is 
the  final  result  of  two  iterations  of  this  process.  The  projection 
was  run  twice  in  order  to  try  to  fill  paygrade  endstrengths  in  the 
lower  paygrades  1  and  2.  However,  we  were  not  able  to  significant¬ 
ly  improve  the  personnel  distribution  between  these  paygrades  by 
period  3.  The  reason  is  that  eligibility  limits  for  paygrade  1  did 
not  allow  a  sufficient  number  of  promotions  into  paygrade  2. 

In  order  to  simplify  the  example,  we  have  not  taken  into 
account  the  fact  that  entries  into  paygrade  1  must  satisfy  length 
of  service  requirements  before  becoming  eligible  for  promotion. 

This  would  mean  that  an  increase  of  promotions  into  paygrade  2 
might  be  delayed  1  or  2  periods. 

After  having  attained  a  desired  endstrength  and  paygrade 
distribution  at  the  end  of  period  3,  a  similar  analysis  can  be 
used  to  stabilize  this  inventory  profile  over  the  remaining  two 
periods  if  that  is  desired. 
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FIG-  30:  FINAL  SEABEE  PROJECTIONS 
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The  next  step  in  our  example  is  to  consider  the  sea/shore/ 
neutral  distribution  within  paygrades.  For  purposes  of  illustra¬ 
tion  we  shall  focus  on  paygrade  3.  However,  it  is  essential  to 
note  that  alterations  in  the  rotation  pattern  in  any  paygrade  will 
affect  the  duty  type  distribution  in  higher  paygrades  because 
personnel  who  are  promoted  retain  their  PRD's,  thus  a  significant 
number  of  promotions  out  of  a  paygrade  can  change  the  distribution 
of  personnel  in  the  next  higher  paygrade.  The  paygrade  3  distribu¬ 
tion  for  the  last  projection  is  given  in  figure  31.  This  shows  a 
steadily  increasing  shore  contingent.  Assume  that  it  is  desired  to 
maintain  a  stable  shore  total  of  about  788  (i.e.  keep  the  size  of 
the  shore  component  the  same  as  it  is  initially) .  Since  the  pay- 
grade  endstrength  has  been  increased,  this  will  result  in  more 
personnel  at  sea. 


TOTAL  INVENTORY  FOR  PAYGRADE  GROUP  =  3 

( 0P5=1  122334455667  7) 
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The  size  of  the  shore  component  at  any  time  T  >  0  will  be 
affected  by  two  factors:  (i)  the  number  of  people  who  are  rotating 

from  shore  duty  in  period  T  -  1,  and  (ii)  the  number  of  people  who 
will  be  coming  to  shore  in  period  T.  Each  of  these  factors  can  be 
influenced  by  alterations  in  the  rotation  pattern.  For  example  in 
period  1  the  table  in  figure  31  shows  an  increase  of  58  people  at 
shore.  Unless  existing  PRD’s  are  changed,  the  only  way  to  decrease 
this  number  is  to  send  more  rotating  sea  personnel  to  neutral. 
Therefore,  if  neutral  duty  is  to  be  kept  small  there  is  little  that 
can  be  done  to  normal  rotation  patterns  that  will  reduce  the  size 
of  the  shore  component  in  period  1. 


At  period  2  there  is  a  projected  increase  of  84  personnel 
ashore.  Now,  however,  an  alteration  in  the  normal  rotation  pattern 
in  period  0  can  reduce  this  projected  increase.  The  normal  sea  to 
shore  rotation  pattern  in  period  0  is  described  below. 
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tour  length  6  7  8  9  10 

(in  quarters) 


percent  rotated 
to  tour  length 


.01  .04  .89 


.04  .01 


FIG.  32:  INITIAL  SEA  TO  SHORE  ROTATION  PATTERN 


Thus  89  percent  of  the  rotating  sea  personnel  are  sent  to  shore  for 
a  tour  length  of  8  quarters;  in  all,  99  percent  are  sent  to  shore 
duty.  Using  COMPTR  with  Tl  =  0  and  T2  =  2  we  find  that  with  the 
current  rotation  pattern  approximately  3  of  these  people  will 
rotate  from  shore  in  period  1.  This  can  be  computed  from  the 
portion  of  the  COMPTR  output  table  shown  in  figure  33  using  the 
above  rotation  pattern. 


Tour  length 
Sea  to  shore 
Neutral  to  shore 


6 

89 

0 


7  ...  20 
43  .  . .  3 

0  .  .  .  0 


FIG.  33: 


OUTPUT  OF  COMPTR  FOR  Tl=0  and  T2=2 


The  entries  which  are  not  indicated  are  all  zeros.  However,  if  all 
99  percent  of  the  sea  to  shore  rotating  personnel  are  sent  to  a 
tour  length  of  7  quarters  then  there  will  be 

0.99  x  43  a  43 

people  in  this  group  who  will  rotate  from  shore  in  period  1  (see 
description  of  COMPTR  in  chapter  IV) ;  therefore  in  period  2  the 
shore  size  will  be  decreased  by  approximately 

43  -  3  =  40. 

When  this  alteration  in  normal  rotation  is  made,  and  the 
inventory  projected  again  using  the  new  pattern,  the  results  for 
paygrade  3  are  shown  in  figure  34. 
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FIG.  34:  PAYGRADE  3  PROJECTION  FOR  SEABEES  USING 


NEW  ROTATION  PATTERN  IN  PERIOD  0 

The  change  in  normal  rotation  has  resulted  in  a  smaller 
increase  (~ 3 2 )  in  the  shore  size  in  period  2,  however  there  is  no 
substantial  effect  in  later  periods. 

A  more  extreme  alteration  in  the  normal  rotation  pattern  at 
period  0  would  have  resulted  in  an  even  better  result.  For  example 
if  .92  ~  84/89  of  the  sea-to-shore  rotating  personnel  are  sent  to  a 
tour  length  of  6  quarters,  and  the  remainder  are  distributed  over  7 
to  10  quarters  then  the  new  projection  would  have  resulted  in  a 
shore  total  of  788  in  period  2.  The  user  of  the  model  must  decide 
what  alterations  in  rotation  are  acceptable. 

At  period  3  the  projected  shore  size  (figure  34)  is  74  above 
the  desired  level.  Using  COMPTR  with  Tl  =  1  and  T2  =  3  we  obtain 
the  output: 

Tour  length  4  5  6  7  ...  20 

Sea  to  shore  239  176  114  64  .  .  .  0  4 

Neutral  to  shore  0  0  0  0  ...  0  0 

FIG.  35:  OUTPUT  OF  COMPTR  WITH  Tl=l,  T2=3 


In  order  to  reduce  shore  size  to  788  in  period  3  it  is  not 
sufficient  to  send  everyone  rotating  from  sea-to-shore  in  period  1 
to  a  tour  length  of  7  quarters,  as  before,  since  this  would  result 
in  a  decrease  of  only 

( .99  x  64)  -  4  »  59 

people.  Therefore  a  reduction  in  shore  size  of  74  will  require 
that  a  certain  percentage  of  personnel  rotate  to  a  tour  length  of  6 
quarters  at  shore.  Another  possibility  is  to  reduce  the  number  of 
people  coming  to  shore  in  period  3.  This  can  be  accomplished 
either  by  sending  a  larger  percentage  of  rotating  sea  personnel  to 
neutral  or  by  extending  sea  tours.  However,  in  this  example  the 
sea  tour  lengths  already  average  around  16  quarters,  so  an  increase 
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here  could  have  adverse  effects  on  moral  and  ultimately  on 
continuation.  In  view  of  these  considerations,  the  user  may  decide 
to  solve  his  problem  by  decreasing  shore  tours  at  period  1. 

Assuming  this  is  the  case,  we  want  to  send  a  percentage  x  to 
6  quarters  and  a  percentage  y  to  7  quarters  in  such  a  way  that  (see 
figure  35) 


114  x  +  64y  =  74 


and 


x  +  y  =  .99  . 

The  solution  of  this  system  of  equations  is 
x  =  0.21,  y  =  0.78  . 

It  is  clear  that  there  are  many  possible  rotation  patterns  that 
will  result  in  the  desired  decrease  in  shore  size,  the  solution 
given  here  was  motivated  by  a  desire  to  keep  neutral  duty  the  same 
size  (second  equation)  and  reduce  the  shore  tour  as  little  as 
possible . 

Proceeding  as  above  for  each  succeeding  time  period  we  arrive 
at  the  following  sea  to  shore  rotation  pattern  for  periods  T  =  0, 

1,  2,  3: 


Tour  length 

=  6 

7 

T  =  0 

0 

.99 

T  =  1 

.21 

.78 

T  =  2 

.31 

.68 

T  =  3 

.79 

.20 

FIG.  36:  ALTERED  SEA  TO  SHORE  ROTATION 

The  inventory  which  is  projected  with  the  new  rotation 
pattern  is  shown  in  figure  37.  Note  from  figure  36  that  in  period 
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3  a  substantially  greater  percentage  of  the  sea  to  shore  rotating 
personnel  are  sent  to  a  short  tour  length  than  is  the  case  in 
earlier  periods.  The  reason  is  that  personnel  sent  to  sea  in 
period  0  are  returning  to  shore  in  period  5,  and  therefore  the 
alterations  in  rotation  in  period  3  must  also  compensate  for  this 
increased  flow. 

In  order  to  analyze  the  effects  of  the  changes  that  have  been 
made  in  rotation,  the  user  can  set  0P4-*—  1,  5  and  project  the 
inventory  to  period  6  as  previously  described. 

The  example  given  illustrates  one  aspect  of  the  applicability 
of  the  model.  ROTATIONMOD  can  be  used  for  a  variety  of  analyses, 
and  it  is  anticipated  that  specialized  programs  will  be  written  to 
facilitate  these  applications.  We  shall  consider  one  more  example. 
For  a  given  rotation  policy  (including  accessions,  continuation  and 
promotion)  there  are  definite  steady-state  inventories  for  which 
that  policy  can  be  implemented.  Such  an  inventory  can  be  scaled  to 
any  desired  size,  but  the  ratios  between  sea/shore/neutral  totals 
will  be  determined  by  the  rotation  policy.  This  fact  must  be  taken 
into  account  in  considering  the  following  question:  how  many  shore 
billets  are  needed  to  support  rotation  when  the  number  of  sea 
billets  is  given?  In  order  to  answer  this,  it  is  first  necessary 
to  find  a  steady-state  inventory  (computational  methods  for  doing 
this  are  discussed  in  appendix  A)  with  respect  to  the  stated 
rotation  policy.  This  inventory  can  be  scaled  to  give  the  desired 
number  of  sea  personnel.  The  corresponding  size  of  the  shore 
contingent  will  then  determine  how  many  shore  billets  must  be 
bought  to  support  the  desired  rotation. 
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APPENDIX  A 


DESCRIPTION  OF  THE  EXPANDED  ROTATION  MODEL 


APPENDIX  A 


DESCRIPTION  OF  THE  EXPANDED  ROTATION  MODEL 


The  purpose  of  this  appendix  is  to  describe  the  theoretical 
basis  for  the  expanded  rotation  model  ( ROTATIONMOD) .  This  will 
include  a  discussion  of  the  simplifying  assumptions  which  were 
used,  and  estimates  of  the  error  which  these  introduce  into  the 
model.  The  final  section  deals  with  several  applications  of  the 
model . 


DESCRIPTION  OF  THE  MODEL 

Personnel  movements  in  a  rating  or  group  of  ratings  are 
modeled  as  a  network  with  flows.  Each  node  or  "cell"  in  the 
network  is  characterized  by  four  components  (j,  k,  i,  m) ,  where  j 
designates  a  paygrade  group,  k  represents  one  of  the  duty  types,/ 
is  a  length  of  service  (LOS)  category,  and  m  represents  the  number 
of  quarters  until  rotation  to  a  new  duty  type.  The  parameters  K,  L 
and  M  are  the  maximum  values  of  j ,  /  and  m  respectively.  Since  any 
number  of  paygrades  can  be  aggregated  if  desired,  K  is  variable. 
Usually  however  K  =  7  and  the  first  three  paygrades  E-l,  E-2  and 
E-3  are  aggregated  as  paygrade  group  1.  If  length  of  service  is 
measured  in  years  then  L  =  31,  and  periods  to  rotation  are  measured 
in  quarters;  thus  M  =  20  corresponds  to  a  maximum  tour  length  of 
five  years. 

There  are  three  types  of  duty  — 

(1)  sea 

(2)  shore 

(3)  neutral. 

Therefore  the  components  of  a  cell  are  limited  by  the  inequalities 


1  <  j  <  K 

1  i  k  1  3 

(1)  1  <  i  <  L 

1  <  TO  <  M 


We  use  Nfc( 0 ; j ,k,/,m)  to  denote  the  total  number  of  personnel 
in  cell  (j,  k,  /,  m)  at  the  beginning  of  period  t  (i.e.  all 
personnel  who  have  the  characteristics  specified  by  the 

coordinates).  For  convience  we  also  define  Nfc ( 0 ; j ,k, /,m)  =  0 
whenever  one  of  the  coordinates  lies  outside  the  range  specified  in 
(1)  . 


A— 1 


The  only  possible  flows  out  of  a  node  are  those  defined 


below: 


(2) 


( j  ,  k ,  l  ,m ) 

(  j  fin) 

(  j  / k#i  fin) 
(  j  ,k ,£  ,m) 


►  (jr  k,  i+1,  ra-4) 

►  (j  +  1,  k,  £+1,  m-4 ) 

►  ( jf  k' ,  Z+l,  m' ) 

►  ( j+1,  k'  ,  £+1,  m' ) 


if  m  >  4 
if  m  >  4 
if  m  £  4 
if  m  <  4 


These  flows  model  the  several  types  of  personnel  movements.  When 
an  individuals'  projected  rotation  date  (PRD)  to  another  duty  type 
is  larger  than  four  quarters,  he  normally  remains  in  the  same  duty 
type  until  next  period,  but  his  PRD  is  decreased  by  four,  and  his 
LOS  is  increased  by  one.  The  first  two  expressions  represent  this 
type  of  flow.  In  the  second  expression  the  individual  has  been 
promoted  to  the  next  higher  paygrade.  In  (2)  k'  /  k  and  the 
flows  involving  k'  represent  actual  changes  in  duty  type.  As 
before,  flows  of  the  form  (j,  .,  .,  .) — ►(j+1,  .,  .,  .)  represent 

promotions  into  the  next  higher  paygrade.  These  restricted  flows 
are  based  on  certain  assumptions  concerning  the  personnel  process; 
for  instance,  that  an  individuals'  tour  length  is  not  altered  once 
he  has  been  assigned  to  a  duty  type.  This  is  not  strictly  true, 
and  in  some  ratings  a  substantial  portion  of  the  inventory 
experience  alterations  in  tour  lengths.  At  a  later  stage,  we  will 
introduce  procedures  for  altering  this  "normal"  rotation  pattern. 
Another  assumption  that  is  implied  by  (2)  is  that  no  one  is 
promoted  more  than  one  paygrade  per  period.  This  is  essentially 
true.  Finally  relations  (2)  imply  that  an  individual  who  is 
promoted  will  remain  in  the  same  (k,  £,  m)-th  cell;  that  is,  time 
remaining  in  duty  type  is  not  affected  by  promotion. 


In  addition  to  the  flows  which  have  been  described  thus  far, 
there  are  flows  into  and  out  of  the  network  which  represent  posi¬ 
tive  or  negative  accessions.  Positive  accessions  are  personnel 
added  to  the  rating--ei ther  new  enlistees  or  lateral  transfers; 
negative  accessions  are  losses  to  the  inventory  due  to  factors  such 
as  a  lateral  transfer  out  of  the  rating.  Also,  school  candidates 
are  not  part  of  the  distributable  inventory.  This  can  be  modeled 
by  considering  them  as  negative  accessions  to  the  rating  when  they 
go  into  school,  and  positive  accessions  when  they  finish  school  and 
are  again  counted  as  distributable.  We  use  the  notation 

Afc(j,k,/,m)  to  represent  total  accessions  to  cell  (j,k,Z,m),  i.e. 
the  difference  between  positive  and  negative  accessions. 


The  inventory  at  the  beginning  of  period  t+1  is  given  by  the 
equations 


N 


t+1 


At(j,k,/,m)  +  (inflows  from  promo¬ 
tions  and  rotation 
in  period  t) . 


(  0  ;  j  ,  k ,  £  /  ro ) 


We  shall  describe  the  second  term  in  this  relation  more  precisely; 
the  exact  form  which  it  takes  will  depend  upon  attrition,  promo¬ 
tions  and  rotation  policies.  Attrition  in  period  t  is  modeled 

by  an  L  -  component  vector  7 . ^  for  each  paygrade  j  and  duty  type  k. 
—  j.  3 K 

The  f-th  component  y.,  is  the  fraction  of  personnel  in  the 

3  ^ 

(j,k,^)-th  cell  who  remain  in  the  Navy  throughout  period  t.  It  is 
then  assumed  that 


(3)  Nfc(l; j ,k,i,m)  =  •  Nfc(  0 ; j ,k, /,m) 

is  the  percentage  of  the  (j,k,/,m)-th  cell  which  remains  in  the 
Navy  throughout  the  t-th  period. 


Promotions  are  modeled  in  a  similar  fashion  by  L-component 


vectors 


and  it  is  assumed  that 


Qjjv  .  Nfc(l;j  ,k,i,m) 

of  the  survivors  in  cell  (j,k,i?,m)  are  promoted.  Thus  this  cell 
contains 


(4)  Nt(2;  j  ,k,^,m)  =  (l-^jk/)  *  Nfc(  1 ;  j  ,k ,  i,m ) 

personnel  after  promotions. 

The  promotion  vectors  are  "adjusted"  each  period  to 
reflect  changes  in  accessions,  continuation  or  endstrength 
requirements.  This  adjustment  essentially  consists  of  scaling 
fixed  input  vectors  p . ,  of  historical  promotion  probabilities. 

The  components  of  are  historical  promotion  probabilities 

averaged  over  past  periods.  Since  there  are  definite  requirements, 
such  as  length  in  service  and  test  passing,  that  must  be  satisfied 
before  an  individual  is  eligible  for  promotion,  not  everyone  in  a 
paygrade  or  LOS  category  can  be  promoted.  The  percentage  of 
individuals  in  each  LOS  who  are  eligible  for  promotion  are 
described  by  L-component  vectors  in  which  the  £-th  component 

is  the  fraction  of  the  (j,k,/)-th  cell  which  is  eligible  to 

be  promoted.  Thus  at  each  period  t  we  must  have 

ejk/  <  ejkf  i  «jk/  for  a11  j,k'^  • 

The  explicit  determination  of  proceeds  as  follows.  First 


the  available  positions  in  paygrade  j+1  are  computed  by  the 
equation 


“j+i  -  ">ax'0'  Ej+i  -  sj+i +  p5+i  -  A$+i> 


where  E^T  is  the  desired  paygrade  endstrength  in  period  t,  is 
the  total  surviving  inventory,  Pj  is  the  total  number  of  promotions 

out  of  paygrade  j  (P^  =  0),  and  A1:  is  the  total  accessions  to 

paygrade  j.  Now  let  the  vector  <5.,  be  defined  component-wise  by 

D  K 

=  min( p ,  Cjkj^)  for  each  £,  and  set 


a  =  vt  ?  Nt(l;  j,k,i,m)  . 


j  k ,£  °jk £  m 

We  consider  two  cases: 


Case  1. 


P  .  >  a 
D  3  +  1 


In  this  case  it  is  necessary  to  promote  fewer  people  than  the 

"normal"  promotion  vectors  8  ..  specify.  Therefore  we  define  p!r  by 

3K  3K 


•  i  =  t»*8- 1 

3  k  jk 


where 


=  « .  , /p  . 

j  +  r  p  j 


Case  2. 


a 


t 

j  +  1  * 


In  this  case  we  must  promote  more  people  than  the  normal 
promotion  vectors  8^k  specify.  We  therefore  define  p^k  as  a 
weighted  average  of  Sjk  and  €jk: 


(5)  pjk  =  (l-<o)*8jk  +  0  _<  (o  <_  1 

where  w  is  determined  so  that  the  expression 

(6)  ct.  .  —  p  y N  ( 1 ;  j  ,k,/,m) 

D  +  1  k,l  Kjk  £  m 

is  minimized.  Substituting  (5)  in  (6),  we  find  that  this 
expression  is  minimized  when 
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(7) 


0)  = 


< 


min I 1 , 


otherwise . 


Hence  we 


define  P . , 


by  equations 


(5) 


and  (7)  . 


The  rationale  for  modeling  promotion  behavior  this  way  is  to 
attempt  to  capture  persistent  promotion  characteristics  of  the 
rating  as  they  are  reflected  in  the  average  historical  promotions 
and  at  the  same  time  respond  to  changes  in  accessions,  continuation 
and  endstrength  requirements.  There  are  clearly  other  ways  to 
adjust  promotions  to  meet  these  requirements,  and  these  alterations 
could  be  developed  if  desired. 

We  shall  now  turn  to  the  description  of  normal  rotation. 

There  are  six  rotation  types: 

sea  to  shore 
sea  to  neutral 
shore  to  sea 
shore  to  neutral 
neutral  to  sea 
neutral  to  shore . 


It  is  convient  to  denote  these  rotation  types  by  a  2-component 
vector  ^  =  9l r  $2  where 

(8)  1  <  ^  ^  i  3  and  ^1+  ^2 


(e.g.  =  2,3  represents  shore  to  neutral  rotation).  The  rotation 

pattern  for  each  paygrade  j  and  rotation  type  <f>  in  period  t  is 


defined 


an  M-component 


vector 


where  the  m-th  component 


is 


the  percentage  of  personnel  following  rotation  type  <f>  who  are  sent 
to  a  tour  length  of  m  quarters.  That  is,  for  each  LOS  £ 


Mtfn  ■  <f>,  i,  1) 

personnel  are  sent  to  duty-type  ^2  for  a  tour  length  of  m  quar¬ 
ters.  We  have  assumed  that  this  percentage  is  independent  of  the 
LOS  category  £.  This  allows  the  user  to  send  individuals  to  tours 
of  varying  length  in  order  to  obtain  a  more  uniform  personnel 
distribution  between  sea,  shore  and  neutral  duty.  The  only 
theoretical  restrictions  on  these  rotation  vectors  is  that  all 


individuals  in  cells  (j,k,/,l)  must  rotate  to  a  new  duty  type, 
i.e.,  for  each  a  is  1  <  k  <  3 


The  input  required  to  generate  the  period  t+1  inventory  from 

period  t  inventory  is  the  set  of  vectors  and  for 

all  indices  in  the  ranges  defined  by  (1)  and  (8).  If  we  define  any 
of  these  vectors  to  be  zero  if  one  of  the  indices  does  not  satisfy 

conditions  (1)  or  (8),  then  N  (0;j,k,£,m)  is  given  by 

(9)  Nt+1(0; j ,k,i,m)  =  Afc(j,k,i,m)  +  Nfc ( 2 ; j ,k J-l ,m+4 ) 

+  Nt(2;j-l,k  J-l,m+4) 

4  f  f 

*2=k 


+  e^-1  1^(1;  j-1,^  J-l,p)] 

The  process  described  in  equation  (9)  represents  personnel 
flows  subject  to  normal  rotation.  However,  as  remarked  earlier, 
there  are  ratings  in  which  a  significant  portion  of  the  inventory 
does  not  rotate  normally.  Factors  such  as  operational  holds, 
humanitarian  considerations,  and  leave  taken  between  tour 
assignments  cause  changes  in  individual  PRD's.  In  order  to 
account  for  this,  early  and  late  rotation  behavior  has  been 
modeled.  The  user  has  the  option  to  consider  early  and  late 
rotation  or  not. 


Late  rotation  for  each  paygrade  j  is  modeled  as  a  "shift"  in 
the  period  t  inventory  before  projection  to  period  t+1  is  begun. 

Late  rotation  vectors  of  M  components  are  specified  so  that  the 

t  1  ^ 

m-th  component  Xj^  is  the  percentage  of  the  inventory  who  would 
normally  rotate  in  period  t  but  are  re-assigned  to  a  new  PRD  of  m 
quarters  instead.  That  is,  for  m> 4 ,  ( 0 ; j ,k ,  £,m )  is  replaced  by 


and 


1^(0;  j,k,i,nt) 


E  Nfc(0;j ,k,|,n)  ; 

n=l 


then  Nfc(0; j,k,/,m) ,  for  m  =  1,2, 3, 4,  is  replaced  by 

(1  "  E^kn)  *  Nfc(0;j,k  J',m) 
n  J 

The  new  values  of  Nfc(0 ; j ,k,^,ra)  obtained  by  this  shift  represent 
the  effect  of  late  rotation. 


Early  rotation  for  each  paygrade;  is  modeled  by  a  6-component 


vector  _ 
the  inven 


in  which  the  n-th  component  a 


*  i  X  11  VYlllV/U  LHC  1  i  l—  i,  1  Will  pwilCU  KJ  »  1  J.  vv.uv.wnjv  j_ 

j  <p  j_  n  j<pn 

itory  y1  m^4  Nt(  0 ;  j  ,  jt,m)  that  will  rotate  early  to  duty 


is  the  percentage  of 


type  02-  We  assume  that  the  early  rotating  individuals  are 
distributed  equally  in  cells  (j ,  £ /Hi)  for  m  =  1,2, 3, 4. 
Therefore  each  of  these  cells  contains 


NI<°;  j'^1  fir®)  -  T  crL  *  5  £  Nfc(0; 

9  1  4  I  m>4  1 

early  rotators  who  will  rotate  to  duty  type  <£2  •  We  must  then 
shift  the  normally  rotating  inventory  by  replacing 

Nt(0;  j,^>lfi,m)  ,  for  m>  4  ,  by  (1-a^)  Nfc  (  0  ;  j  ,<f>1 ,  i,m)  . 

We  assume  that  the  early  rotators  n£  (Ofjr^rirm) 
(m=l,2,3,4)  will  be  assigned  to  tour  lengths  determined  by  the 
normal  rotation  vectors  but  since  all  of  these  people  are 

rotating  to  duty  type  we  aPP^Y  to  thera  a  "normalized"  normal 

rotation  pattern 


to  determine  the  percentage  who  are  sent  to  each  tour  length. 

The  inventory  is  decomposed  into  early  rotating  components 
and  a  shifted  portion  (excluding  early  rotators)  which  is  subject 
to  the  normal  rotation  process;  let  SNfc(0; j ,k,£,m)  denote  the 
number  of  personnel  in  cell  (j,k,/,m)  of  this  portion  of  the 
inventory.  Then  the  transformation  equation  becomes 

Nt+1(0;  j  ,k,i,m)  =  A'(j,k,Z,m)  +  SNfc(  2  ;  j  ,k  ,|-1  ,m+4  ) 
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(91  ) 


+  5j_i  £SNt(l;j-l,k,j0-l,m+4) 

4 

+  S  E  /*■*  n,+p[SNt(2;j,01,/-l,p) 
0  P“1 

02=k 

+  ?j-l^  SNt(l;j-l,01  J-l,p)] 


4- 


E 


P  -1 


+  ej_1<#>’  Nt(l;j-l,01,f-l,p)]  . 

The  last  summation  vanishes  if  early  rotation  is  not  considered, 
and  ( 9 ' )  reduces  to  (9)  if  neither  early  or  late  rotation  is 
considered.  Equation  (9')  can  be  summarized  by  the  following 
steps : 


(i)  shift  inventory  for  late  rotation 

(ii)  shift  for  early  rotation,  form  early  rotating 
components 

(iii)  determine  attrition 

(iv)  determine  promotion 

(v)  rotate 

(vi)  add  accessions. 

In  ROTATIONMOD  these  steps  are  accomplished  by  the  PROJECT 
function,  which  does  not  use  equation  (9')  directly.  For  each 
paygrade  the  inventory  cells  are  grouped  into  a  3  x  L  x  M  array  ; 
then  the  computations  can  be  done  by  simple  APL  operations  on 
arrays . 


ACCURACY  OF  THE  MODEL 

The  model  has  been  tested  on  several  ratings.  The  table 
below  shows  the  percent  error  between  projections  and  historical 
results  from  the  enlisted  master  record  ( EMR) .  For  each  rating  the 
1977  inventory  was  projected  from  the  actual  1976  inventory  using 
1976/1977  historical  continuation,  accessions,  and  rotation  data 
with  1977  endstrengths .  Then  the  ratio  of  the  number  of 
individuals  in  the  projection  who  are  in  the  wrong  duty  type 
divided  by  the  paygrade  total  was  computed. 


A- 8 


Paygrades 


Ratings 

1,2,3 

4 

5 

6 

7 

8 

9 

AQ 

0.0 

0.8 

0.2 

0.9 

4.7 

4.8 

- 

MS 

0.8 

2.1 

0.1 

0.2 

0.4 

1.5 

0.1 

SeaBees 

0.4 

0.6 

1.7 

1.3 

1.3 

2.2 

0.0 

FIG.  A- Is  PERCENT  ERROR  IN  ONE  YEAR  PROJECTIONS 


Most  of  the  differences  are  approximately  one  percent  with 
the  exception  of  the  E-7's  and  E-8 1 s  of  the  AQ  community  (there  are 
not  E-9's  in  the  AQ  rating)  two  very  small  groups.  However,  the 
absolute  differences  in  the  projected  sea/shore  distribution  for 
and  the  actual  distribution  these  two  paygrades  are  10  and  5 
respectively. 


APPLICATIONS  OF  THE  MODEL 


In  this  section  we  describe  some  ways  in  which  the  model  can 
be  used;  most  of  these  have  already  been  implemented  in 
ROTATIONMOD . 


Let  us  fix  j,  k  and  two  time  periods  t^  <  t2',  further  let 
0,  <*>• ,  be  the  pair  of  rotation  types  such  that  0' 2  =  02' =  k. 

If  A  represents  the  total  number  of  personnel  who  are  scheduled  to 
rotate  from  duty  type  k  in  period  t2~l,  then  any  factor  which 
influences  A  also  affects  the  size  of  duty  type  k  in  period  t2 • 
Holding  all  other  variables  constant,  A  depends  on  how  many 
individuals  are  sent  to  duty  type  k  in  period  t^ .  That  is. 


A  "  A0  +  A0* 


+  (other  terms) , 


where  A^  =  A^fL^)  is  the  number  of  individuals  in  paygrade;  who 


rotated  from  duty  type  <*>1  in  period  t^ ,  and  at  t2~l  have  a 
PRD  £  4.  Let  Aa(id)  be  the  value  of  A<^if  all  these 
individuals  were  sent  to  a  tour  length  of  m  quarters.  Then  if 


V 


the  linearity  in  (91)  implies 


M 


A0  -  £.  rm  Vm)‘ 

m=l 
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(10) 


The  user  may  solve  this  equation  for  values  of  rm  which  will 
produce  a  desired  value  of  ;  the  only  restriction  being  that 
0  _<  rm  £  1.  For  instance,  if  a  projection  with  a  given  rotation 
pattern  yields  too  many  people  in  duty  type  k  at  period  t2 ,  the 
user  could  determine  values  for  rm  in  (10)  which  would  increase 
A<J>.  The  program  COMPTR  computes  the  coefficients  A.(m)  and 
(m)  (1  <.  m  <  M)  .  9 

The  other  terms  in  A  come  from  promotions  into  paygrade  j  in 
time  periods  between  tj  and  t2~l.  If  these  predominate,  then 
adjustments  in  (10)  may  have  little  effect  on  duty  type  distribu¬ 
tions  . 


If  we  let  be  the  vector  whose  components  are 
Nfc( 0 ; j ,k, l,m) ,  for  all  j,k,/,m,  ordered  in  some  fixed  way,  and 
a  vector  with  components  At(j,k,£,m),  then  equation  (9')  can 
be  expressed  more  compactly  by 


(11) 


Nt+1  =  ®t(Nt)  +  Afc, 


where  is  an  operator  which  has  the  decomposition 


= 


R 


and  Cfc  represents  attrition,  Pfc  represents  promotions  and  Rfc 
the  operation  of  rotation.  Clearly  R^  and  are  linear 
operators,  while  Pfc  is  not  since  it  depends  on  the  magnitude  of 
.  Let  nfc  be  the  sum  of  the  components  of  and  let  a^ 
be  the  sum  of  the  components  of  A*- .  Then  if  we  define 


t+1  t 
9t  .  n  -a 


n 


we  can  write 


di' ) 


n 


t+1 


-  0 


t  ,  t 
n  +  a 


Thus  et  is  the  percent  of  the  period  t  total  inventory  who  remain 
in  the  Navy  throughout  period  t.  If  the  sequence  of  accessions 
|at}  is  changed,  then  (11')  will  give  estimates  of  the  resulting 
total  inventory;  these  will  not  be  exact  because  the  overall 
continuation  rates  are  dependent  on  inventory  size.  Suppose 
that  we  have  constant  total  accessions  a,  then  (11')  gives 


t 


n 


o 


=  n 


t  t  t  . 

II  01  +  a(l+  £  (  n  01))  . 

j=l  j=2  i=j 
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If  we  want  to  determine  a  so  that  the  inventory  at  period  t  is  a 
given  size  n,  then  the  above  equation  implies 

n  -  n°  n  0L 

(12)  a  =  -r - ^ - 

1+  £  .n.  ^ 

j=l  1  =  3 

A  new  projection  based  on  total  accessions  a  will  produce  a  new 
total  inventory  sequence  n^;  and  the  process  can  be  repeated 

with  the  new  values  of  determined  by  n^  if  n^-n  is  not 

sufficiently  small.  The  function  COMPTA  is  based  on  equation  (12) 
and  is  intended  to  be  applied  iteratively. 

As  a  final  application  consider  the  steady-state  case 

(13)  N  =  @N+A. 

Suppose  that  ®  and  A  are  given.  Then  it  is  easy  to  see  that  (13) 
has  a  solution  N  and  that  N  is  unique  up  to  a  scalar  multiple,  for 
i  f  m  >  0 , 


N  =  ®mN  +  ®m  1A  +.  .  .+  ®A  +  A. 

But  ®mN  =  0  if  m  >  L;  so  in  particular 

L 

N  =  (  T  ®1)A. 
i=0 


As  a  consequence  we  see  that  for  the  steady-state  inventory  N, 
ratios  between  paygrade  endstrengths  and  ratios  between  duty  types 
are  completely  determined  by  ®  and  A.  Thus  the  steady-state 
inventory  is  very  strongly  structured;  in  particular  if  a  specific 
level  of  sea  manning  is  desired,  then  the  corresponding  size  of  the 
shore  component  is  determined  by  these  ratios. 

For  practical  purposes  the  steady-state  inventory  can  be 
determined  inductively  from  equation  (9').  That  is,  clearly 

N(0;j,k,/,m)  =  A(j,k,^,m),  for  all  j,k,m. 

Now  suppose  that  all  N(0;j,k,/,m)  have  been  determined  for  £  < 
then  the  quantities  N( 0 ; j , k , £'  ,m )  can  be  obtained  by  solving 
equation  (9')-  A  computer  program  to  do  this  could  be  written 
without  much  difficulty. 
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APPENDIX  B 


PROGRAM  LISTING  AND  FLOW  CHARTS 


APPENDIX  B 


PROGRAM  LISTING  AND  FLOW  CHARTS 


This  section  contains  a  listing  of  all  programs  (including 
calling  functions)  in  ROTAT I ONMOD .  Most  of  these  programs  are 
short  and  are  not  as  compactly  written  as  they  could  be.  Conse¬ 
quently,  they  should  not  be  difficult  to  decipher.  Therefore,  flow 
diagrams  accompany  only  those  programs  which  are  relatively  long  or 
have  a  fairly  complicated  logical  structure. 

User-oriented  functions  are  listed  first  in  alphabetical 
order.  Then  the  system  functions  are  listed,  also  alphabetically. 
When  a  function  consists  of  several  modules  stored  in  the  MOD  file, 
the  listing  begins  with  the  calling  function  and  then  each  module 
is  listed,  the  order  being  determined  by  the  MOD  file  component  in 
which  it  is  stored. 
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C4D  'PAYGRADES  AND  NEW  PAYGRADE  LIMITS' 
L"5J  MQ 
161  Jfl 
C  71  LOOPUIM 

L83  L00P2 * READFILE  X , 2 » AC < 2x I ) -1 1 r TMC J1 

C93  PGLIMf -AC2XID 

LiOD  WRITEFILE  X r 2 y AC  < 2 x I ) - 1 3  y  TM C  J 3 
C113  -»(  (  <pA)-;-2)^IMil)/L00P2 

C123  ( X  y  0  >FILEALT  TMC JD 

C 133  -»(TMCJ3s;0)  /CONT 

C143  ( X  y  0 ) FILEALT  TMCJ3 -1 

C 153  CONT ♦  J<-J+l 
C 163  -X  J^pTM)/L.OOP1 
C 173  END*->0 

<7 


B-4 


*  CHANGEE  XP Ay  BP DUP IP  CONTINUATION; VP Z 
C13  LOOF’l  J  '  ENTER  AS  A  NUMERIC  VECTOR:  F'AYGRADEy  TIME 
PERIOD’ 
ecu  Z<-0 

C33  loops: header  2 

1:43  -•»  ( BR--1 )  /END 

C53  READF  ILE  Xy5yZC13 yZC23 

L"63  ’ENTER  CHANGES  IN  CONTINUATION  AS  A  NUMERIC 
VECTOR  WHOSE  COMPONENTS' 

C73  'ARE  ALTERNATLY  LOS  AND  NEW  LOS  VALUE' 

C83  V<0 

C93  U'l 

C103  LOOP3:CONTINUATIONCVC(2xI>-13JDU3«-VC2xI3 
C1I3  ■»(  <  C  <*  V )  -v-2 )  i  I  *•  III)  /LOOF'3 
C123  WRITEFILE  X y 5 y ZC 1 3 r ZC23 
CI33  (Xyl)FILEALT  ZC23 

FI 43  ’DO  YOU  WANT  TO  CHANGE  CONTINUATION  IN  ANOTHER' 
E153  □  '  DUTY  TYPE?  ' 

C163  K3^pB<IIia)/C0NT 
Cl 73  *(3*+/B» ' YES ' J/L00P2 

C183  CONT : ' DO  YOU  WANT  TO  CHANGE  CONTINUATION  IN 
ANOTHER ' 

CI93  D<-  'PAYGRADE  OR  TIME  PERIOD?  ' 

C203  -»  C3^pB<-25*D)/0 

C2I3  ->  (3=+/B=  '  YES  '  )/LOOFl 
C223  end: -JO 
v 


B-5 


V  C  H  A  N  G  E  E:  X  i  A  ?  B  t  E  R  0  T 1 1  r  V  i  Z 

i::  :l  :j  a  6  1 6  »>  •  s  e  a  t  o  s  h  o  r  e  s  e  a  t  o  n  e  u  t  e  a  l  s  h  o  r  e  t  o 

SEA  SHORE  TO  NEUTRAL NEUTRAL  TO  SEA  NEUTRAL 
TO  SHORE ' 

C  2  :i  L  0  0  P 1 J  '  E  N  T  E  R  A  S  A  N  U  M  E  R I C  V  E  C  T  0  R  J  p  A  Y  G  R  A  D  E » T I M  E 
PERIOD ' 
i::5:i  Z<-D 

I!!  4 3  R  E  A  D  F I L  E  X  »  6  »  Z  C 1 3  r  Z  C  2  3 

i:S3  I  <■■() 

£61  ‘ENTER  CHANGES  IN  EARLY  ROTATION > IF  NO  CHANGE 
TYPE  4C 

i:73  LOOP  SCR- AC  I  ^  I  F 1. }  3?  '  ?  ' 

C83  ERRiV<-18*0 

i:  9  3  -» ( 2 - + / 0  0;  '  4 C  '  )/ST E P 

CIO  3  -»<  (p  v  )  /CONT 

C 1 1 3  '  I N  C  0  R  R  E  C  T  E  N  T  R  Y  t  T  R  Y  A  G  A I N  ' 

Cl 2 3  »ERR 

Cl 3 3  CONT ♦  EROTCI 3+-* V 
Cl  4  3  STEP  4  -» <  6  >  I )  /LOOP 
C 1 5  3  W  R I T  E  F I L.  E  X  *  6 1 1  £  1  3  » Z  C  2  3 
Cl 6 3  (X rl) FILE ALT  ZC23 

Cl 7 3  'DO  YOU  WANT  TO  CHANGE  NORMAL  ROTATION  IN 
ANOTHER  1 

C 1 8  3  Cl  '  P  A  Y  G  R  A  D  E  0  R  T I M  E  P  E  R 1 0  D  ?  1 

Cl 9 3  h>  ( 3 # f> B 2 5 -I  Cl )  / 0 

C  2 0  3  -» <  3  * + /  B  ~  '  Y  E  S  '  )  /  L.  0  0  p  1 

C213  ENDS -»0 

C223  -» <  6 >  I )  /LOOP 
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V  CHAN GEE  XJBrliViRTJNRQTfZ 
U.2  L00P1J' ENTER  AS  A  NUMERIC  VECTOR i  PAYGRADEr TIME 

PERIOD ' 

II 2 II  ZHU 

i: 3 :i  HEADER  7 

II 4 II  4(BR*1 ) /END 

II  5  U  R  E  A  D  F I L  E  X  y  7  y  Z  C 1 3  y  Z  C  2  3 

I..  6  J  1  E N T E R  C H A N G E S  I N  NO R M A L  R 0 T A T 1 0 N  A S  A  N IJ M' E R I C 

V  E  C  T  0  R  W  H  0  S  E  C  0  M  P  0  N  E  N  T  S  ' 

173  'ARE  ALTERNATLY  TOUR  LENGTH  AND  NEW  TOUR  LENGTH 
VALUE ' 

non  vhii 
II 9  H  i  <- 1 

i::  l  o  3  \...  o  o  p  2 1  n  r  o  t  c  r  t  j  v  c  <  2  x  1  >  - 1  ;j  3  *•  v  c  2  x  1 3 

1: 1 1 II  •»  <  (  (  p  V  )  ->•  2 )  i  I  I  f  1  >  /  L  0  0  p  2 

I.'!  1 2 II  W  R I T  E  F I L  E  X  y  7  y  Z  C 1  3  >  Z  C  2  3 

II  .1. 33  <  X  y  1  >  FILE  ALT  ZH2II 

111411  'DO  YOU  WANT  TO  CHANGE  NORMAL  ROTATION  IN 
ANOTHER  1 

II 1 5 II  HI  1  P  A  Y  G  R  A  D  E  0  R  T I M  E  P  E  R 1 0  D  ?  ' 

II 16 II  (  3  ^  p  B  <  ■  2  5 1  III )  /  0 

II 1 7 II  ( 3  “ + /  B  ®  '  Y  E  S  '  )  /  L  0  0  P 1 

II 18 II  END  ♦  -»0 
v 
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V  C H A N  G E E  X  r A  r  B  f  D U *1 f L R  0  T  ?  V  ?  Z 


c  :i  ::i 

L 0 0 P 1 : ' E N T E R  AS  A  N U ME R I C  V E C T 0 R 
PERIOD' 

i  PAYGRADE , TIME 

C23 

Z  D 

C33 

L00P2I HEADER  2 

c  4  ::i 

( BR::“i  )  /END 

C53 

R  E  A  0  F I L  E  X » 8 » Z  C 1 3  t  Z  C  2  3 

i::  6  ::i 

‘ENTER  CHANGES  IN  LATE  ROTATION 
V  E  C  T  0  R  W  H  0  S  E  C  0  M  P  0  N  E  N  T  S  ' 

AS  A  NUMERIC 

r:  ?  :i 

‘ARE  ALTER NAT LY  TOUR  LENGTH  AND 
VALUE ' 

NEW  TOUR  LENGTH 

i::b:i 

vh::i 

i:  9  ::i 

1 4"1 

Cl  03 

L  0  0  P  3  i  L.  R  0  T  C  D  U  ?  V  C  ( 2  x  I )  -  ;|.  3  3  <-  V  C  2  x  1 3 

c:  :l  i  3 

■»  <  (  ( f>  V )  -v-2  )  £  1 4- 1  -f  1 )  /LOOP 3 

Cl  23 

W  R I T  E  F I L  E  X  v  8 »  Z  C 1 3  r  Z  C  2  3 

Cl  33 

<  X  y  1  '?  FILE  ALT  Z  1:2:1 

C 1 4  3 

'DO  YOU  WANT  TO  CHANGE  LATE  ROTATION  IN  ANOTHER 

C153 

UK-  '  DUTY  TYPE?  * 

i:  i  6  3 

1 UED/CONT 

Cl  73 

C  3 =+ /B=  '  YES  '  )  /LOOP 2 

C183 

CON T 2' DO  YOU  WANT  TO  CHANGE  LATE 
ANOTHER ‘ 

ROTATION  IN 

Cl  93 

Q«-  ‘  PAYGRADE  OR  TIME  PERIOD?  1 

C203 

( 3  9s  p  B  2  5  4-  ID  >  /  0 

C213 

( 3~+/B=  1  YES  1  )  /L00P1 

i:22:i 

lv 

END  PK) 

! 
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V 


CHANG  EE  X  i  A  5  ACCESS  I ONS  i  DU  ?  I  i  J }  F'G  i  TM  i  B  i  C » D  i  E 
C:L3  HEADER  4 

1:2:1  -»<br«i  )/end 

i:33  HEADER  5 

E43  ->  ( BR~1 )  /  END 

CS3  'ACCESSION  CHANGES  CAN  BE  MADE  BY  SCALING  THE 
CURRENT  1 

I"  6  3  'ACCESSIONS  ARRAY  r  OR  BY  REPLACING  A  DUTY  TYPE 
MATRIX  WITH  A  NEW  ONE1 

C  7  3  '  E  N  T  E  R  C 1-1 A  N  G  E  IN  ACC  E  S  S I  ON  S  <  P  0  S I T I U  E  0  R  N  E  6  A  T I U  E  ) 

OR  '  '  x  '  iifejjS  '  ACCESSIONS  MATRIX  ' 

C83  A  13 
C  9  3 

1::  1 0  :i  loopi  t 

I!!  1 1  3  L 0 0 P 2  i  REA D F I  i... E  X  ?  9  t  P G  i:  1 3  *  T M C  J  3 
i:  1 2 3  -i((pf  A  )  ~~2  )  /MATRI X 

1:  :l.  3  3  A  C  C  E  S  S 1 0  N  S + <-  <  3  r  L. »  M  )  (>  B  \  D  \  E  x  A  +  f  /  E  (  D  <-  C  >  0 )  /(>  (  B<-  y 
ACCESS I ONS #0 ) / f ACCESSIONS 
CJ.43  -=>CONT 
I"  1 5  3  MATRIX?  H  F  A  D  E  R  2 
i:  163  -KBR-n/ENn 

1:  :l  7 3  ACC F S S IONS r:  D U  V  V  3 A 

r  1.  s 3  TONT  t  ur i  tef  i i  f  x » 9 »  pg r  r  3 .  tm r .  1 3 
Cl.  93  ACCESS  1 0NS<-0 
P203  T<-T  +  1 
r  71  3  (  t  pg  >  ,/i  nnP7 

r  771  < X „ O  > F I !  F A !  T  T  M  r  1 3 

T7-n  (X,  1  )  F 1 1  FA  I  T  TMT  .13 
i:243  .)f..l+1 

i:253  ■KJ:ipTM)/inOP:l 
1:2*3  END  t  -»0 
v 
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<?C0MPTACD3v 

v  COMPTA 

Cl  3  DFXIHC513 ' MOD ' 
C23  COMPTAA 
L"33  I3EX  '  COMPTAA  ' 


v  COMPTAA 5  A  } ACCESSIONS i I 5  INVENTORY  5  OPS 5  SUMMARY i U  5  X  5 
CH 

Cl  3  ‘ENTER  DESIRED  INVENTORY  SIZE' 

c  2  ”i  x*ci 

C 3 .1  1  E N T E R  T I M E  P E R 1 0 D  A T  W H I C H  D E S I R E D  I N V E N T 0 R Y  IS 

TO  BE  ATTAINED' 
i:  4 II  X<-X  y  D 

c  5  ::i  ( <  x  c:  2  3 + 1  >  >  *>  c  h  < -  ci  c  <  1 + 0  p  1 )  x  2 + 1  3  ■  f  i  i...  e  3 1 )  /  e  x  i  r  1 

1::  6  ::i  <  0  •=: + /  <  <  x  c  2  :i + 1 )  ,•>  1  >  -  <  x  c  2  3 + 1  >  t  c  h  >  /  e  x  i  t  2 

1::  7 3  0P5«-1»K 

con  LH-  X  0 
C9  3  K-0 

C 103  I...  0  0  P 1 }  0  P  6  0  R  0  U  P  0  P 1 » 1 2  >  1 » I 
Cl  13  ->  COO) /LAB 

C 1 2  3  I NVEN  TORY*- SUMMARY  C  2  3 
Cl  33  A<-SUMMARYC53 

C 1 4  3  I...  A  B  I U  !•'  IJ .  <  S  U  M  M  A  R  Y  C  7  3  -  A  )  -f  S  U  M  M  A  R  Y  C  2  3 
Cl 5 3  H-I+l 

Cl 6 3  -» ( I X E 2 3  •  :f.  ) /LOOP! 

C 1 7  3  A  C  C  E  S  S 1 0  N  S  <-  <  X  C 1  3  •••■  I N  V  E  N  T  0  R  Y  x  x  /  U  >  + 1 + + /  x  \  e  ;|.  4-  U 
Cl 8 3  'ESTIMATED  ASSESS IONS  PER  PERIOD  FOR  PERIODS  0 
THROUGH  ‘ yXC23~l?'  5 1 

Cl 9 3  '  ' 

C 2  0  3  ACCESSIONS 
C  2 1  3  0 

C223  EX IT 12' IN  ORDER  TO  USE  COMPTA  THE  INVENTORY  MUST' 

C  2 3  3  ‘BE  PROJECTED  TO  AT  LEAST  PERIOD  ' ?  X  C  2  3 
C  2  4  3  »>0 

C253  EXIT2 1 ' INPUT  DATA  AFFECTING  THIS  COMPUTATION  HAS 
BEEN  ' 

C  2  6  3  '  A  I...  T  E  R  E  D  S I N  C  E  L  A  S  T  P  R  0  J  E  C  T 1 0  N  ' 
v 
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V  COMPTR 


13 

□FXHC503  ■  moi: 

23 

COMPTRR 

33 

□EX ' COMPTRR ' 

v 


II 1  3 
C23 
C33 


C43 

C53 

1163 

1173 

E83 

C93 

C 1 03 

C 1 1 3 

C123 

C 133 

C 143 

C153 

C 163 

C173 

C183 

C193 

C  203 

C21 3 

C223 

C233 

C243 

C253 

11263 


C273 

C283 

11293 

C303 

C313 


^  COMPTRR  >A?B»BR»C»D»  INVENTORY  9  T  9  AD  JPROBF'ROM 9 
CONTI NUATION  9  E  i  EROT  i  1 9  J  9  L.ROT  9  F  9 U 9 K 9  DU  9BB 9  G 9 NROT 

' FOR  A  PAYGRADE  GROUP  (DEFINED  BY  0P5>  AND  DUTY 
TYF*E  f  1 

‘COMPTR  DESCRIBES  THE  EFFECT  OF  CHANGES  IN 
NORMAL  ROTATION1 

'AT  A  PERIOD  T1  ON  THE  TOTAL  PERSONNEL  IN  THE 
DUTY  TYPE  AT  A1 
'SUBSEQUENT  PERIOD  T2>1+T1* 

■ENTER  PAYGRADE  GROUP' 

C«-D 

HEADER  2 

D«-(  <3f>DU>i*l3>/\3 
•ENTER  PERIOD  T1 1 
T«-D 

'ENTER  PERIOD  T2 ' 

C«-C  » D~1 

BB«-B«-  ( 3+  \  M-2)  »  H 1  3  ( 2  »M-2)  *>0 
U«-0F*5 

K>UC(2XCC13>-13 
LOOP « 0F’5«-K  t  K 


<((62p1  0>WL)  +  <62p0  1 
E<-INVENTORYCf  *1,2,3,43 
INVENT0RY<-0 


\U.) GROUP  0P1 , 15, 1 , T 


I«-(4xCC23-T)-3xl<CC23-T 
L00P1  «F«-(2,L,M)pO 


!  5  >  <  I_2> » <  J"1  >  »  1 3*  <  "1«23E>  CDC  1  3  9  9  1 

FC2*  ,  ( 1-3)  ,  ( 1-2) , <1-1 )  »I3+-<“1*>C23E)CDC23?  9  3 

L00F'2 1 READFILE  0P1  ,  10,K,  T+J 


F<-Fxl-(2,L,M>p<<5t(M,L>  p  AD  JF’ROBPROM  C  DU  9  3  )  , C 1 3*  ( d , 
pADJPROBPROMCDU?  3 
READFILE  0P1,5,K,T+J 


L) 


F+-F x  ( 2  ,  L , H )  p  ( I*  ( M , L )  p CONTI NUAT I ONC  9  DU3  )  ,  C 1 3is* <  fcj  ,  L )  p 
CONTINUATION  II  J  DU  3 
-» <  0P3=0 )  /LATE 
READFILE  0P1,6,K,T+J 

FCl**4+l  M-43*"FC  1  *  * 4+ 1 M~43 x  1 -EROTCDU3+EROTIIDU3 


B-ll 


C  3  2 3  F  C  2  f  5  4  ■ +  \  id  --  4 II  <-  F  C  2  i  i  A +  l  to  ••••  4  3  x  1  -  E  R  0  T  C  D  U  3 + E  R  0  T II D  U II 

II 3  3  3  L  A  T  E  5  ( 0  F*  2  *  0 )  /  N  0  R  M 

II 3  4 II  R  E  A  D  F I L  E  0  P 1 y 8  v  K » T + J 

II 3  5 II  G<-  FII5  i  l  y  2  v  3  y  4 II 

II 3  6 3  F II 1  v  i  1  >  2  *  3 y 4  3  F II 1  ?  5 1 y 2 y 3 » 4  3  x  1  - + /  L  R  0  T  H  D  U  f  3 

II 3  7  3  F II 1 5  v  3  <-  F II 1 5  y  3  +  (  ( L » U )  f>  L  R  0  T  C  D IJ  y  3  )  L )  (>+ /  G  Z 1.  v  ?  II 

11 3  8 II  F  Z.  2  y  y  :l.  y  2  y  3  y  4 II  <-  F  Z.  2  y  y  1  y  2  y  3  y  4  3  x  1 . f  /  L  R  0  T  C  D  U  »  II 

11 3 9  3  F  C  2  t  »  3  <-  F  C  2  5  5  3  +  <  ( L  y  t& )  f*  L  R  0  T II D  U  ?  3  >  x  *!  <  t;i ,  L )  f>  /  G  Z.  2  ?•  ?  3 

11 40  3  G*0 

II 4 1 3  N  0  R  M  2  <  C II 2  3  <  T + J  <••,)  + 1 )  /  0  U  T 
II 42  3  F<-4'l,“i  *t'C23F 

11 4  3  3  F  C  y  y  ( l;5  -  3  )  *  ( M  ••••  2  )  y  ( M  ™  1 )  y  fcl  II  0 

11 44  3  -i*  LOOP  2 

11 4 5  3  0 U  T  t  B  Z.  2  y  3  y  I  ••••  3  3  + / + /  F  C  5  5 1  y  2  y  3  y  4 II 

II 4  6 II  <  <  3+ 4  x  C  t:  2 II  ••••  T )  1  *■  1  i  1 )  /  L  0  0  P  J. 

II 4 7  3  B  B  C  2  y  3  y  \  H-  3 II  B  B II 2  y  3  y  *  U  -  3 II + B II 2  y  3  y  \  U  -  3  3 

11 4  8 II  RE  ABF  II...  E  OF'l  v  7  y  K  y  T 

II 49 3  G B II 2 y 3 y  \ fcS ••••  3 II  +  ♦  x is* 0  3*NR0Tt:«3  2(>3  5  1  6  2  4)CDU»3» 

n 

11 5  0 II  B  B II 2  y  M  ™  2 II  <  •  B  B  Z.  2  y  M  -  2 II  +  G I1 1.  y  1 II 

II 5 13  B  B  C  3  $  ti  -  2  3  B  B II 3  5  M  -  2 II + G II 2  y  2  3 

11 5 2  3  ( U II 2  x  c  r  1 3  3  i  K  K  + 1 )  / 1...  0  0  P 

11 53  3  0P5HJ 

II 5  4 II  4  1  f*  '  ' 

II 5  5 II  1  P  A  Y  G  R  A  D  E  G  R  0  U  P  1  5  C II 1 II 5  '  J  ' 

II 56  3  '  0 P 2  «  1  ?  OF’ 2 

II 5 7 II  '  OP 3  ■  '  5  OF' 3 

II 58 3  'OPS  «  '  yOF’S 

11 59  3  '  ' 

11 60  3 


II 6 1 II  '  1 0 1 J  R  L  E  N  G  T  H  '  y  <  3  y  0 )  T  B  Z.  1 5  l  U  -  3  3 

II 62  3  '  ' 

II 633  ACDC13y35  '  TO  '  y  A II  DU  y  II  y  1  '  y  <  3  y  0  )  »BBC2  i  \  M-33  y  ' 

y  (  3  y  0  )  t  B  B II 2  y  i;3  ~  2 II 

II 64 3  A C B C 2 3  y  3  y  '  TO  *  y  AUDI) 5 II 5  '  '  y  <3y0>  tBBC3MM-33  *y  ' 

y  (  3  y  0  )  T  B  B II 3  5  fei  -•  2  3 

II 65  3  '  ' 

II 6 6 II  'FOR  EACH  INDICATED  ROTATION  TYPE y THE  CHANGE  IN 
T  0  T  A  I...  P  E  R  S  0  N  N  E  L  AT  '  y  <  A  C  D  U  y  3  s*  7  p  '  '  )  /  A II D  U  y  3  y  '  IN' 

II 6  7  3  '  P  E  R 1 0  D  '  5  C II 2  3  + 1  y  '  D  U  E  T  0  A  N  A  L  T  E  R  E  D  R  0  T  A  T 1 0  N 

T Y  P  E  V E C  T 0 R  R  I N  P E R 1 0 D  ' y  T  y '  IS' 

II 68  3  '  E-+/RXA 

F693  'WHERE  A  IS  THE  VECTOR  CONSISTING  OF  THE  FIRST 
17  ENTRIES  AND  E  IS  THE' 

II 70 3  'THE  LAST  ENTRY  IN  THE  ROW  CORRESPONDING  TO  THE 
ROTATION  TYPE  1 
v 
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v  FILLJBR 
Cl D  QFXBC8D ' MOD ' 

C2D  FIL 
I"  3D  DEX'FIL' 
v 


v  FILJ ArDTJI  ?K'J  JJL5MJOP 
LID  'SPECIFY  DATA  COMPARTMENT <0  OR  1)' 

C2D  I<  (8+4XI) XOPHD 
C 3 D  L>OP+  J<-2x  <i }  l  )  xfcixQP 

C4D  DTM. 

C5D  LOOP  J  ->  ( DT“  U  2 )  /L 1 »-  L2 » L3 * 1..4 » L.5  >1.6  >  L.7  >  L8  >  L9  ,  L 1 0  y  L 1 1  y 
L12 

C6D  Li: ( (K» <X+l>y3)pO>£lCllID'FILEl ' 

C  7  D  ->END 

COD  L2  J  (  (  (Ill)  V  li  >  p  0  )  ESC  21 1 D  'FILE!  * 

C  9  D  END 

C  1 0  D  L3J  (  ( 3 y  L y  K >  pO )  EIC31I D  '  FILE1  ' 

CUD  ->END 

C 1 2D  L. 4  5  (  ( 3  y  L  y  li )  p 0 ) Q C  A 1 1 D  '  F I L.. E 1  ' 

Cl  3D  -»  END 

Cl -ID  ls:km 

C15D  LP1J ( ( I » L y K ) p 0 ) AC 41K1 1 D ' F I LE 1 1 

II 16  D  K>KT1 

C17D  ( K i'3 )  /LP1 

C18D  -HIND 

C19D  L.7 }  KM 

C  2  0  D  I...  P  2 :  0  El  C  8 1 K  1  I D  '  F I L  E 1  ' 

C21D  K<-K11 
C22D  •KKi'2xI)/LP2 
C23D  ">END 
C24D  L.9JKM 

C  2  5  D  L.  P  3 :  0  El  C  K 1 J  D  '  F I L..  E  2  ' 

C26D  KiK'll 

C2  7D  ( K  &  2  x  I  x  |i )  /  L  f 3 

C28D  ->END 
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E293  LlliKM 

E303  LP4 : 0HE1+L+K3 '  FILE4  ' 

E313  K«-K+l 

E323  "KKi2x(I+i)xK)/LP-4 
E333  ->END 

E343  L12J  ( <  I  y  7  r  ii)  r>O)0EL+13  1 FILE4 1 
E353  ->END 
E363  L8  J  K<-1 

E373  LP5:0BC8+K+2xI+I3 'FILEl ' 

E383  Kf-Kfl 

E393  -KK^2xX)/LP5 

E40  3  ->END 

E41  3  L6J  < <Ir6»K)pO)HC8+I3 'FILEl ' 

E423  -*END 
E433  L10JKM 

E443  LP6J ( <3»LfK>pO)HCK+CI+2)xOP3 'FILE3' 

E453  K<  K+l 

i:  4  6  3  -K  KSD/LP6 

i:  47  3  (1 0 )  HE  1  +1+  <  2+1 )  x  OP  3  '  F I LE3  1 

E483  (  y  0>HE2+I+<2+X>  xOP3  '  FIL.E3  ' 

E49  3  END  J -K  12^nH-DT+l )  /LOOP 
v 
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PRINT  x  ?  a»  dt  »  br  » z 
cn  z<-opi 


C23  A <"15  26p' BILLETS 


PAYGRADE 

PROMOTION  PROBABILITIES 
I TIES  CONTINUATION 


LIMITS 


ELIGIBLE  PROBABILITIES 
EARLY  ROTATION 


NORMAL  ROTATION 
ACCESSIONS 
INVENTORY 
ADJUSTED 


LATE  ROTATION 
PROMOTIONS 
SUMMARY 


PROBABILITIES  SURVIVING  INVENTORY 
PREPARED  INVENTORY 
Oil  DT<-1 

C43  LOOP ♦  -» <  26=+/  <  X » < 26- p  X )  p  '  *  >®ACDT»  3  )/OUT 

C53  DT<-DT  +  1 

C63  *»<DT<15)/L00P 

171  -» <  DTi 16 )  /ERR 

C83  OUT! 'SPECIFY  DATA  COMPARTMENT < 0  OR  1)' 

C93  0Pl<-0 

C103  0FX6C8+DT3 'MOD' 

C 1 1 3  PRINT! 

L 123  OEX ' PR I NTT ' 

C133  ->EXIT 

r:  1 4 3  ERR:  '  INCORRECT  DATA  TYPE' 

C 153  EXIT:OPl<-Z 


v  PRINTTiB»BILTS»I> JJPGJTM 
Cl  3  HEADER  4 
C23  -» ( BR~1  >  /END 

C33  HEADER  5 
C43  -» (  BR=1  )  /END 

C53  1*1 

C63  LPi:B<-<  (pTM)  t3)p0 
C  7  3  J<-1 

C  8  3  LP2J  (  (  (  (2XL)P1  0  )  \ \L  )  +  <  ( 2xL  )  pO  DMDGROUP  OPl»l» 
P6C 1 3  » TMC J3 
C93  -KIXp0P5)-;-2)/0 

C 1 0 3  BC  J »  3<  BILTS 
Cl  13  J<-J+l 
C  123  -»<  J4pTM)/LP2 

C 133  'BILLET  REQUIREMENTS  FOR  PAYGRADE  GROUP  =  'r2  Of 
F*  G  C  I  3 

C143  ' < ' i '0P5=' »0P5» ' ) ' 

C 1 5 3  < 5 » 0 ) PR IN  B 

C 163  I<-I  +  l 
C 173  -»<  I4pPG)/LP1 

C 183  ENDJ-»0 
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0 


v  pRINTTJBi I* JIPGLIMIPGITM 
Cl  3  HEADER  4 
C23  ->  ( BR~1 )  /END 

C33  HEADER  5 
C43  ->  <  BR~ 1 )  /END 

C53  B<”  <  <  p TM )  r  pPG  )  pO 

C63  I<-1 

C73  LP1JJ<-1 

C83  LP2J<<<<2XDP1  0)\lL>  +  <  <2xL)pO  DWDGROUP  0P1>2» 

PGCI3»TMCJ3 
C93  -»<!><  pGP5  ) *2 )  /O 

C 103  BC  J f  1 3<-PGLIM 
Cl  13  J<-J+l 
C 123  -»<  JSpTM)/LP2 

C 133  1  + 1 

C 143  -» <  I  i' pPG  ) /LP1 

C 153  'PAYGRADE  GROUP  LIMITS' 

C 163  ' < ' t '0P5«' »0P5> * ) ' 

C 173  < 1 » 0 ) PR IN  B 

C 183  ENDJ-»0 


v  PRINTTf AfBJDUJIlPROBPROMIPG 

C 1 3  HEADER  3 

C23  -» <  BR~1 )  /END 

C33  BEGIN? HEADER  2 

C43  -»<  <BR=2)vBR=1)/END 

C53  B<-  <L »  pPG )  pO 

C63  I<-1 

C73  LPJREADFILE  0Plr3*I»0 
C83  BC  > I 3*PR0BPR0MCDU i 3 

C93  If-I  +  1 

C 103  -><IiPpG)/LP 

C 1 1 3  'PROMOTION  PROBABILITIES  FOR  DUTY-TYPE  J ' » ACDU »  3 
C 1 2 3  <2,0>PRIN  B 

C 133  0<- '  DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE?  ' 

C 143  -» <  3*pB«-40ID  )  /END 

C 153  •» < 3“+/B=  '  YES  '  )/BEGIN 

C 163  END  J  -»0 
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v  PFilNTT » AfBfDUl  I  I ELIGf PG 

C 13  HEADER  3 

C23  -XBR-1  )/END 

C33  BEGIN  * HEADER  2 

i:  4 1  ->  (  ( BR™2 )  VBR~ 1 )  /END 

£51  B+-  (L»  pF'G)  pO 

C63  1*1 

£71  LF’tREADFILE  OF'l  »4»PGCI3*0 

C83  BC  t  I3*ELIGCDU»3 

£91  1*1  +  1 

CIO  1  ••><  IspPG)/LP 

C 1 1 3  ’ELIGIBLE  PROBABILITIES  FOR  DUTY-TYPE  ACDIJ )  3 
C  123  <2»0)F'RIN  B 

C133  EM-' DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE?  ' 

C 143  -» <  3*  p B*  40 113 )  /END 

C153  -*  ( 3-+/B-  1  YES  '  ) /BEGIN 

Cl. A 3  END*  -»0 
v 


V  F'RI  NT  T  i  A  i  B  i  CONT I NUATION  %  COUNT  \  DU  J I  ?  ,J }  K  i  PG  i  TM 
Cl  3  HEADER  3 

C23  -*  <  BR=1 )  /END 

C33  HEADER  S 

C43  -» <  BFi-1 )  /END 

CS3  J*1 

C63  K<-C0UNT*0 

I”  7  3  DUTY  i  HEADER  2 

C83  -»  <  <  BR-2  )  VBR-1  )  /END 

C93  LP  1  *  B<- ( L »  p F‘G )  p  0 

C 103  1*1 

C 1 1 3  LP2JREADFILE  OP 1 » 5 » PG C 1 3  r  TMC  J 3 
C 123  BC  ?  I 3*C0NTINUATIQNC > DU3 
C 133  I *  I  +  1 
C 143  -X  IS(*PG>/LP2 

C 1 5 3  'CONTINUATION  RATES  FOR  PERIOD  «  ',2  0»TMCJ3 
Cl 63  1  DUTY-TYPE  *  '  ,ACDU»3 

C 173  <  2 »  0 )  F'RIN  B 

C 183  COUNT  *C0LJNT+1 
C 193  K*K+DUxCOUNT=l 

C203  ’DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE 
PROCEEDING' 

C21 3  CH-'TO  THE  NEXT  TIME  PERIOD?  ' 

C  2 2 3  (  3*pB*25ICI)  /CONT 

C233  -» (  3-+/B-  '  YES  1  )  /DUTY 

C 2 4 3  C0NT5DU*K 

C253  J*J+1 

C2A3  -»<  JspTM>/LP1 

C273  END  *  -»0 


<9 
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v  PR I NTT 9BI EROT 1 1 > JIPGI TM 

til  HEADER  3 
t21  -XBR-1  )/END 
OH  HEADER  5 
E43  -XBR=1>/END 
C53  J<-1 

E63  LP1  ♦  B<- (  (  pPG )  » 6 )  pO 
C73  3>1 

C81  L.P2  ♦  READFILE  OP1 1 6  *  PGC 1 1 » THE  J3 
C93  BCIJK-EROT 
C 101  1*1  +  1 

Cl  11  -XI  2  pPG  )  /LP2 

C123  'EARLY  ROTATION  IN  PERIOD  -  ' t2  OtTMCJT 
C 133  < 4 » 2) PR IN  B 

r.143  j*j+i 

E 153  -»<J<pTM)/LP1 

E  163  end:->o 


v  PR  I  NTT » I  f  J»  NRQT  >PG>  TM 

C 1 3  HEADER  3 
E23  -XBR«=1>/END 
E33  HEADER  5 

C43  -*  <  BR=1 )  /END 

E53  J«-l 
E63  LP1  ♦  1*1 

C73  LP25 READFILE  0P1 ,7,PGEI3 ,TME J3 

r.83  'NORMAL..  ROTATION  FOR  PAYGRADE  PG  «  S<2  OtPGEI3>, 
'  IN  PERIOD  TM  «=  '  r2  OtTMCJ3 
E93  <  4  >  0 ) PRINfcfNROT 

E  103  1*1  +  1 

E  1 1  3  -XISpPG)/LP2 
C123  J*J+1 

E  133  -X  J=:pTM)/LP1 
E143  end:-»o 
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*  PR I NTT » I J J»LROT?PGJTM 
C 1 3  HEADER  3 
C  2  3  -XBR-l  )/END 

C33  HEADER  5 

C43  -» ( BR”1 )  /END 

L53  J<-1 

C63  LPISX+l 

C73  LP2 1  RE AD FILE  0P1 > 8 » P6C I  3 » TMC J3 

C8 3  'LATE  ROTATION  FOR  PAYGRADE  PG  *  ' »<2  OtPBC I 3 ) » ' 

IN  PERIOD  TM  «  ',2  OtTMCJ3 
C93  <  4 » 1 ) PRINNLROT 

cion  ifi+i 
Clin  -x  I--;pPG)/LP2 
C123  J*J+1 

C 133  -X  J4pTM)/LP1 
C 1 4 3  END  J  -»0 
v 


*  PR I NTT i A  > ACCESSIONS  »B»C> COUNT i DU  » H  *  I r J  J  K » PG i TM 
Cl 3  HEADER  4 
C  2  3  ->  <  BR”1 )  /END 

C33  HEADER  5 
C  43  -XBR=1)/END 
C53  HEADER  6 
C63  -XBR=1  )/END 
C73  -X  H=1  0 ) /Q1 r 02 
C83  01 J HEADER  2 

C93  -X  (BR=2)vBR=l)/END 
C 103  Q2JIfl 

C 1 1 3  LP1  JB<X3XpTM>  ,3>p0 
C 123  J<-1 

C 133  LP2J0P6  GROUP  0P1 » 9  f  PGC 1 3  » TMC J3 
C 1 4  3  -XH”0)/Q3 

C  153  K<-  COUNT <-0 

C 163  'ACCESSIONS  INTO  PAYGRADE  GROUP  »  *»2  0*PGCI3 
C 1 7 3  'IN  PERIOD  *  S2  OtTMCJ3 

C 183  '  (  '  f  '0P5=--'  >0P5»  '  )  ' 

C 193  ' < ' t '0P6*' JOPAt ' ) • 

C203  DUTY  ♦  <  3  f  0 )  PRIN  ACCESSIONSCDl)  *  i  3 
C  21 3  COUNTp-COUNT+1 
C223  K*Kf DU x COUNT” 1 

C233  'DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE 
PROCEEDING' 
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C243  CK-'TO  THE  NEXT  PAYQRADE/TIME  PERIOD?  ■ 

C253  -» ( 3#pB<-344-H)  /CONT 

C2A3  ->  ( 3*+/B~  '  YES  '  >  /CONT 
C273  HEADER  2 
C283  -><  (BR^2)vbr=i  )/END 

C293  -»DUTY 

L3oi  cqnt: accessions*^ 

C313  DU<-K 

£323  Jf-J+1 

C333  -><  JspTM)/LP2 

1.341  I*-I  +  l 

1351  -»<I=:pPG)/LP1 

C36D  -»0 

C373  Q3 : BE  t  J  J 1 3*  +  /+/ACCESSIONSt:  >  ;i»2>3»43 

C383  BC  » J f  21<- <+/f /ACCESS IONS) -+/+/ACCESSIONSC  *  1 1»2»3» 

[!393  BC  ?  J » 33*-+/+ /ACCESS  IONS 

C  403  ACCESS  1 0NS<-0 

C41 3  J*-J+l 

C423  -><  JSpTM)/LP2 

£433  'TOTAL  ACCESSIONS  INTO  PAYGRADE  GROUP  *  ',2  OtPGC 
13 

£443  '  <  '  i  'OPS*'  J0P5J  '  )  ' 

£453  < 5 » 1 ) PR IN  B 

£463  B<-0 

£473  H-I  +  l 
£483  -»<Is;pPG>/LP1 
£493  END  MO 

<7 


B-21 


v  PR I NTT  t A  f PROMOTIONS*  B  $C  fCOUNT f DU f  H$  I  f  J  f  K  f  PG f  TM 
C 1  3  HEADER  4 
Z21  4  <  BR=1 )  /END 

C33  HEADER  5 
C43  4 <  BR~1 )/END 

C53  HEADER  6 
161  4  <  E<R=1 )  /END 

Z71  4  <  H^l  0 ) /Qi f  02 

C83  Qi: HEADER  2 
C93  4 ( ( BR=2 ) VBR=1 ) /END 

C103  Q22H-1 

Cl  1  3  LP1 2  E<<-  <  3  f  <  pTM ) » 3 )  t»0 
C 123  Jfl 

C 133  LP220P6  GROUP  0P1 f 10 f PGC 1 3 f TMC J3 
C 143  4<H=0)/G3 

C153  K<-COUNT  <~0 

C 163  'PROMOTIONS  INTO  PAY6RADE  GROUP  *  1 f2  0*PGCI3 
C173  'IN  PERIOD  «  ‘f2  OtTMCJ3 
C 183  ' ( ' i ' 0P5= 1  * OPOf  ' ) ' 

C193  ' ( ' f 1 0P6= 1 f  0P6  f » ) ' 

C203  DUTY! <3fO)PRIN  PRQM0TI0NSCDUff3 
C21 3  COUNT<~COUNT+l 
C223  K>K+DU* COUNT- 1 

C233  'DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE 
PROCEEDING' 

C243  CH-'TO  THE  NEXT  PAYGRADE/TIME  PERIOD?  ’ 

C253  ->  <  3*pB<~344-C1  )  /CONT 

L263  4(3*+/^' YES' )/CONT 

C273  HEADER  2 
C283  4<  (BR=2)vBR^l)/END 

C293  4 DUTY 

C303  cont:promotions<-o 

C313  DU<-K 

C323  J<-J+l 

C333  4( J^pTM)/LP2 

C343  I<-I  +  l 

C353  vasppG)/LPl  ' 

C363  40 

C373  Q3  2  BC  f  J f  1  3<~+/+/PR0MQT  IONSC  f  f!f2f3f43 
C383  BC  f  Jf  23<- (  +  /+ /PROMOTIONS )-*-f/+/PROMOT I ONSC  f  f  1  f2f3f 
43 

C393  BCf  Jf33<-  +  /+/PROMOTIONS 

C403  PR0M0TI0NS<~0 

C41 3  J4-J+1 

C423  -*(  J<;pTM)/LP2 

C433  'TOTAL  PROMOTIONS  INTO  PAYGRADE  GROUP  «  ' f2  OfPGC 
13 

C443  ' < ' 5 '0P5=' fOPSf ' ) ' 

C 453  (SfDPRIN  B 
C463  E«-0 

C473  I<-I  +  l 
C483  4<I*pPG>/LP1 
C493  END  2  40 
v 
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*  PR I NTT  ?  Af  INVENTORY  fB>C> COUNT  i  DU*  Hr  I » JrKJPGJTM 
Cl 3  HEADER  4 
C23  -»  <  BR~1 )  /END 

C33  HEADER  5 
C43  ->  ( BR-1 )  /END 

C53  HEADER  6 
C63  -» <  BR~1 )  /END 

C73  -»<H=1  0)/01>02 

C83  Q1 S HEADER  2 
C93  -* (  <  BR~2  )  VBR“1  )  /END 

C 103  Q2!H~1 

C 1 1 3  L.P1  <pTM>  ,3>p0 

C 123  J*1 

C 133  LP2JQP6  GROUP  0P1 » 1 1 r PGC 1 3  * TMC J3 
C143  ->  <  H~0 )  /Q3 

C 153  K<-C0UNTy-0 

C 163  1  INVENTORY  FOR  PAYGRADE  GROUP  *  ',2  OtPGCI3 

C173  'IN  PERIOD  =  S2  OtTMCJ3 
C 183  ' < ' t ' 0P5~' J0P5J ' ) ' 

C 193  ' ( ' » ' 0P6~ ' »0P6> 1 ) 1 

C203  DUTY*  <3»0)PRIN  INVENTORY! DU? ? 3 
C21  3  COUNTY-COUNT  + 1 
C223  K«-K+DUxCOUNT“l 

C233  'DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE 
PROCEEDING' 

C243  Dy'TO  THE  NEXT  PAYGRADE/TIME  PERIOD?  ' 

C253  -» <  3#pB<-344-CI  )  /CONT 

C263  -» <  3*+/B~  '  YES  '  )/CONT 

C273  HEADER  2 

C283  -» <  <  BR~2  )  VBR~1 )  /END 

C293  ->DUTY 

C303  cont:  inventory^ 

C313  DUY-K 

C323  J<-J+l 

C333  -♦<  J:SpTM)/LP2 

C343  I<-I  +  l 

C353  -» ( I  £  pPG  >  /LP1 

C363  -»0 

C373  03*  BC  ?  J  ?  1 3 <■•  +  /+/ INVENTORY C  ?  ?  1  ,2*3>43 

C383  BC?J?23<-(+/ +/ INVENTORY )  --+/+/ INVENTORY!  ?  ?1»2»3»43 

C393  BC?  J?33<-+/+/INVENT0RY 

C403  INVENT0RY<-0 

C41 3  Jy-J+1 

C423  -»<  JspTM)/LP2 

C433  'TOTAL  INVENTORY  FOR  PAYGRADE  GROUP  «  ',2  OfPGCI3 
C443  *  <  '  *  '0P5='?0P5»  '  )  ' 

C 453  (5» 1 )PRIN  B 

C463  B<-0 

C473  IY-I  +  1 
C483  -»<  ISpPGJ/LPI 

C493  ENDJ->0 
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*  PRINTTJBmj*SUMMARY?TM 

Cl 3  HEADER  5 
C23  -» <  BR-1  >  /END 

C33  Jfl 

c  4  :j  l..p  i :  d<-  ( 7  >  <  pops  ) +2 )  p  0 

C53  If-1 

i::6:.l  LP2I0P6  GROUP  OPl,12>l',TMCJ3 
C73  DC  i  I3<-SUMMARY 
C83  I  <- 1  f  1 

C93  -XI::;  <  pOP5)v-2)/LP2 

C103  2  Ip'  • 

Cl  13  *  <  '  f  'OPS--'  J0P5>  1  )  ' 

C 123  <6rO>PRIN  D 
C 133  Jf-J+1 
Cl  43  -X  Js;pTM)/LP1 
C 1 5 3  END  2  -»0 


V  PR I NTT i A ; B i I i J i K i AD  JF'ROBPROM i DU ) PG  * TM 
C 1 3  HEADER  3 

C 2  3  -» ( BR=1 )  /END 

C 3 3  HEADER  5 

C43  -» <  BR-1 )  /END 

C  5  3  Jfl 

C63  Kf-COUNTfO 

C73  DUTY: HEADER  2 

C83  -X  <BR=2)vBR=l)/END 

C93  LPlJBf (LypPG)pO 

C 103  If-1 

I..113  LP2  *  READFILE  0P1 1 10 » PGC 1 3  »  TMC  J3 
1123  DC i I  3*  ADJPROBPROMCDU  *  3 
Cl  33  If-I  +  l 
Cl  43  -XIipPG)/LP2 

C15]l  ^cdu?dED  promotion  probabilities  for  duty-type:  ■ 

C163  'IN  PERIOD  -  1 , 2  0*TMCJ3 
C 173  ( 2 j 0 ) PR IN  B 

C 183  COUNT  f-COUNT  + 1 
C 19  3  K  f K +DUXCOUN T = 1 

C203  'DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE 
PROCEEDING' 

C 2 1 3  CH-'TO  THE  NEXT  TIME  PERIOD?  ' 

C223  -X  3#pB<-2510  )  /CONT 
C 2 3 3  -X3=+/B«  '  YES  ') /DUTY 

C  2 4  3  CONT  }  DU«-K 
C253  Jf-J+1 
C  2  6  3  -X  Js:pTM)/LP1 

C273  end:->o 

v 
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v  F'RINTTf  Af  INVENTORY*  B  fCf  COUNT  f  DU r  H  f I f  J  f  K  ?  PG  f  TM 
Cl  3  HEADER  4 
C23  ->  ( BR=1  )/END 

C33  HEADER  5 
C43  -*  <  BR=1  )/END 

C53  HEADER  6 
C63  -*  <  BR=1  )/END 

C73  -><H«1  0)/Q1fG2 

C83  Q1 J HEADER  2 
C93  -*<  <DR^2)vBR*=1)/END 

C103  Q2:i<-1 

C 1 1 3  LP1:B<-(3f  <pTM)f3>pO 
C123  J<~1 

1 133  LP2:0P6  GROUP  OP1 *  14 f PGC 1 3 f THC J3 
C 143  -» <  H=0 )  /G3 

C 153  K<-C0UNT<-0 

C 163  ' SURVIVING  INVENTORY  FOR  PAYGRADE  GROUP  «  S2  Ot 

PGC  I  3 

C 173  ‘IN  PERIOD  =  1  f2  OtTMCJ3 

C183  *  < ' * 'OPS^' fOP5f • ) 1 

C193  '  <  '  t  '  0P6~  1  »0F*6»  *  )  1 

C203  DUTY: <3fO)PRIN  INVENTORYCDUf t 3 

C21 3  COlJNT<-CGUNT+l 

C223  K«~K+ DU  x  COUNT  ~l 

C233  'DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE 
PROCEEDING' 

C243  CK-'TO  THE  NEXT  PAYGRADE/TIME  PERIOD?  ' 

C253  '♦<3*f»B<-34*n>/C0NT 

C263  -» ( 3#+ /B~  1  YES  1  >/CONT 

C273  HEADER  2 
C283  -»<  (  BR~2 )  VBR®  1 )  /END 

C293  -*DUTY 

C303  cont:inventory<-o 

C313  DU«-K 

C323  J<-J+l 

C333  -*(  J*pTM)/LP2 

C34  3  I<-I  +  l 

C353  -*<ISpPG>/LP1 

C363  ->0 

C373  G3:BCf  Jf13<-+/+/INVENTORYC?  ?1f2f3f43 

C383  BC  f  Jf  23+-  ( +  /+ /I  NVENTOFiY)  •“•**/+/ INVENTORY!  i  f 1 f 2f 3 f  43 

C393  BC  i  J? 33 <-+/+/ INVENTORY 

C403  INVENT0RY4-0 

C41 3  J<-J+l 

C423  •*<  J*pTM)/LP2 

C433  'TOTAL  SURVIVING  INVENTORY  FOR  PAYGRADE  GROUP  ®  ' 
f2  Of  PGC 1 3 

C443  ' < ' f  ' 0P5~ 1 fOPSf ' ) ' 

C453  ( 5 f  1 ) F'RIN  B 

C463  Bf-0 
C473  If-I  +  i 
C483  -»  <  Ij:pPG)/LP1 

C493  end:-*o 
v 
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v  F'RINTT?  A?  INVENTQRYfBf C> COUNT JDUJHf  I  f  JJKfF'GfTM 
Cl 3  HEADER  4 
C23  -><BR=1)/END 

C3D  HEADER  5 
C43  -»<BFi=l)/END 
C53  HEADER  6 
C63  -><BR=1  )/END 

C73  -><H=1  0)/Ql»02 

C83  Qi: HEADER  2 
C9D  -*(  <BR=2)VBR=1  )/END 
C103  02*  I<-1 

Cl  13  LPltB*<3»  <pTM>  f3>p0 
C 123  J*1 

C 133  LP2S0P6  GROUP  OP1 f 15fPGCI3 rTHCJ3 
C143  -»<H=0)/Q3 

C 153  K<-COUNT  <-0 

C 163  'PREPARED  INVENTORY  FOR  PAYGRADE  GROUP  =  S2  Ot 
PGCI3 

C173  'IN  PERIOD  =  'f 2  OtTMCJ3 
C 183  ' ( ’ i '0P5='f0P5» ' ) ' 

C 193  ' <  ’} *0P6=' 5  0P6J ' ) ' 

C203  duty: <3»o>prin  inventorycduj i 3 

C21 3  COUNT  +-COUNT+ 1 
C223  K*K+DUxCOUNT=l 

C233  'DO  YOU  WANT  TO  PRINT  ANOTHER  DUTY  TYPE  BEFORE 
PROCEEDING' 

C243  EH- 'TO  THE  NEXT  PAYGRADE/TIME  PERIOD?  ' 

C253  -K3*pB<-34±0)/C0NT 

C263  -><3*+/B=' YES' >/CONT 

C273  HEADER  2 

C283  -»<<BR=2)vbR=1)/END 

C293  ->DUTY 

C303  CONT 5  INVENTORY* 0 

C31 3  DU<-K 

C323  J*-J+l 

C333  ->  ( Js  pTM  )  /LP2 

C343  I<-I  +  l 

C353  -»<Is:pPG)/LP1 

C363  ->0 

C373  Q3JBC  i  Ji  1 3<~F/+/INVENT0RYC  J  51f2f3f43 

C383  BCf Jf23<-(+/+/INVENTORY)-+/+/INVENTORYC5  f 1,2*3*43 

C393  BC  i  J»33<-+/+/INUENT0RY 

C403  INVENT0RY<-0 

C41 3  J<-J+l 

C423  -*<  JSpTM)/LP2 

C433  'TOTAL  PREPARED  INVENTORY  FOR  PAYGRADE  GROUP  =  ', 
2  OtPGC 1 3 

C443  ' ( ' i 'QP5=' »0P5J ' ) ' 

C453  < 5 » 1 > PR IN  B 

C463  B«-0 

C473  IM  +  l 
C483  -»<ISpPG)/LP1 
C493  end:-»o 
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vPRO  JECTCOU'? 
v  PROJECT  T 
Cl  3  OFXHC  3911  'MOD' 
IZ23  PROJECT!  T 
1133  OEX  1  PRO JECTT  1 


v  PRO  JECTT  T  i  ACCESSIONS  ♦  A1  JA2I  A3  JA45 A5i A6JB1 »B2rB3i 
B4 i B5 1 B6 i CM t CONTINUATION f HOLD i H0LD4 1 5 H0LD42 * 

H0L.D51 1  H0L.D52  ‘t  1 1 INVENTORY  *J>KfN15N2»N3»N4>  NROT  » 

PGL.  I M  i  PROMSUM  i  SUMMARY » TT 
L13  TT*<x/OP4>+Txl-OP4C13 
E23  -»  <  0P4C 1 3=1 )  /START 

C33  0  CHECK (3+0P1 ) »TT 

C43  -»<CH=0>/0 

C53  START: 'PROJECTION  BEGINNING' 

C63  K«-K 

C73  LP1  *SUMMARY<-K»6pO 
1783  READFILE  OP1 , 11 »K»TT-l~OP4C13 
[.93  SUMMARYC23<-  +  / +/+/ INVENTORY 

C 103  INVENTORY*-© 

L 1 1 3  ATTRITION  0P1»K»TT-1 
['.123  SUMMARYC  3  3  <-+/+/+ /INVENTORY 
C 133  INVENT0RY<-0 
C 143  PREPINV  0P1 »Kt TT-1 
C 153  SUMMARY  C  4  3<-PRQMSUM 
C 163  INVE.NT0RY<-4»t'"l'},C  23  INVENTORY 
C173  READFILE  0P1»7»K»TT-1 
L 183  J«-0 

I"  193  LP2JAl<-NRQTm3*(  < 1~ J) + JX+/NROTC 1 > 3 ) +1E  10 
T.203  A2<-NR0TC2>  3*<  <  1~ J > + JX+/NR0TC2 >  3  >  +  lE“10 

E213  A3+-NR0TC3J  3*<  <  l-J)+Jx+/NR0TC3f  3  )  +  lE”10 
C223  A4<-NR0TC4>  3*<  <  1- J )  +  JX  +  /NR0TC4 *  3  )  +  1E“10 

C233  A5<-NR0TC5f  3*(  < 1-J)+Jx+/NR0TC5»  3  )  +  lE “10 
C243  A6<-NR0TC6?  3-r  <  <  1- J )  + Jx+ /NR0TC6 »  3  )  +  lE‘  10 

['.253  -»(0P3“0)/Q1 

f263  Bl*<<<3,L»4)p<*H0LD41>\H0LD42>m  Hx J)  +  INVENTORYC 

1 f i <M~3 ) t <b™2) » (M-l) »M3xl-J 

['.273  B2«-  <<<3»L»4)p<»  H0L.D51 )  \H0LD52 )  C 1 »  i  3x  J ) +INVENTORYC 

Hi  (M-3)  »  (M--2  )t  (M-l)  »M3xl-J 

['283  B3<-<  <  (3»L»4>p<  » H0LD41 ) \H0LD42 > C2 »  J  3xj)  +  INVENT0RYC 

2  if  (fcH-3  >  >  <ti--2 ) »  (M-l)  »M3xl-J 

['293  B4<-  <  <  (3»L»4)p(»  HOLDS  1 )  \H0LD52  >  C2»  »  3  x J )  +  INVENTORYC 

2» r <M“3) » <M-2> » <tt~l ) »M3xl-J 

C303  B5<-(  <  <3»L»4)p  <  t H0LD41 ) \H0LD42 )  C3 i  i  3x J)+INVENTORYC 
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B-30 


*  STATUS 

Cl  3  DFXBC363 'MOD' 

C23  STATUSS 
C33  OEX ' ST  ATUSS 1 
v 


v  STATUSS 


C 1 3 

•li  ■ 
0P2 

|  A  L.*  4  | 

f  &  f 

' >  ' 0P2  =  ' i 

C23 

'L  = 

□P3 

'  ?LS  ' 

' *  ' 0P3  -  ' i 

C33 

'  ti  - 

'  fttr  ' 

S  ' X  ~  SI 

C43 

L53 

'0P1 

1  I 

-  SQP1 

C63 

'  0P4 

-  1 r 0P4 

C73 

'  0P5 

=  S0P5 

C83 

'  0P6 

=  S0P6 

C93  '  ' 

C 1 1 3  '  ' 

C 123  '  '  TM  =  '  ? ”  1+ 1 3C+1 

C 133  '  ' 

C 143  ■»  (  <pBC1+I3  '  FILE3  '  >  -0  >/Ql 

C 153  'COA  =  ' ? HC1+I3 ' FILE3 ' 

C 163  QU-»<  (PBC2+I3  'FILE3'  )=0)/Q2 
C 1 73  'COP  =  ' f HC2+I3 ' FILE3 ' 

C 183  G2: '  ' 

C 193  -»(  (PHC3+2XI3  'FILE3'  )=0)/Q3 

C203  'CIA  =  ' rHC3+2xI3 'FILE3' 

C21  3  Q3J-»(  <  pIHC 4+2x13  1  FILE3  '  >=0>/0 
C223  'C1P  =  ' ?HC4+2xl3 'FILE3' 
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v  TRANSFER 

1113  QFXHC523  '  HOD  ' 
C23  TRANSFERS’ 

C33  I3EX  '  TRANSFERR  ' 


v  TRANSFERR 5 1 P JPDTPPGP TM ? BILTS P PGL.1MP PROBPROM PELIG 
CONT I NUAT I ON ? EROT P NROT P  LROT P  ACCESSIONS P 
PROMOTIONS  P INVENTORY ?  SUMMARY  P  AD JPROBPROM P  BR P  B P  X 
Cl 3  'TO  WHICH  COMPARTMENT  (0  OR  1)  IS  DATA  TO  BE 
TRANSFERED? ' 

C 2 3  X<-("I>  rH-U 

C33  EM- 'DO  YOU  WANT  TO  TRANSFER  AN  ENTIRE  DATA  FILE? 

C  4  3  -><3*pB<"454B>  /  L  0  0  P 

C53  “><3==  f/B"  '  YES  '  )  /ALL 

C63  LOOP « HEADER  1 
C73  -»<  ( BR~2 ) VBR“1 ) /END 

C03  HEADER  3 
L' 9 3  -» <  <  BR-2 >  vBRss l )  /END 

C 103  RET; HEADER  3 
C 1 1 3  ■•>(  ( BR-2 > VBR—  1 > /END 

C 123  KDT=1  2  11) /BEGIN 
C 1 3  3  ><0*-f/TM>4)/ERR 

C 143  BEGIN ♦  J<-1 
C 153  LOOPlJIfl 

C 163  L00P2JREADFILE  XC 1 3 t DT *PGC 1 3 t TMC J3 

Cl 73  WRITEFILE  XC23 r DT » PGC 1 3 » TMC J3 

C 1 83  XU  PG  >  a  I  I 41  )  /L00P2 

C  1 93  -XDT-1 ) /CONTI 

C203  ( XC23  *  1 ) FILE ALT  TMCJ3 

C21  3  CONT  1 ;  •>(  DT  e  1  y  6 » 7 » 8 )  /C0NT2 

C223  (XC23 »0)FILEALT  TMCJ3 

C233  C0NT2J  •»<  <  pTM>  iJf-J+1  J/L00P1 

C243  EH'DO  YOU  WANT  TO  TRANSFER  ANOTHER  DATA  TYPE?  ' 
C253  -»<3*rB«-43*Q>/END 

C263  -K3=+/B='  YES'  )/L.OOP 

C273  END  WO 

C283  ALL:  Of- '  DATA  FILE  TO  BE  TRANSFERED;' 
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£293  X5*f>B<-27in)/ALL 

1130 1  H-l 

£313  -»  <  B£53=  *  1234  1  )  /L.00P3 »  L00P4  v  LOOPS  v  L..00P6 

C  3  2  3  A  L  L 

£333  LQ0P3 J (BCI+XC13X8+4XID 'FILE1 1 ) B£ I + XT23 X8+4XI3 1 
FI LEI ' 

£343  X  <  8  M  x  X )  £  I  I  f  1 )  /L.00P3 

1:35:1  ->0 

£363  LOOP 4  5  (BCI+XC13X2XKXI+13  •FILE2'  >BUCI-fXC23x2xKxZ-fl3  ' 
FILE2 ' 

i:373  -X  (2xKxl+l)2:I<-I  +  i>/L00P4 
£383  ->0 

£393  LOOP 5  5  (Kit  I+X£ 1 3x1+23  '  FILE3  '  ) BC I+XC23  xl+23  '  FILE3  ' 
i:403  X  <I+2>  2:  I  Mfl)  /LOOPS 
£413  ->0 

£423  L00P6J  <BCI+XC13xi+2xKxI  +  13  '  FILE 4  '  )HL*I  fXC23xi+2xlix 
1+ 13 ' FILE4 ' 

£  4 3  3  X  <  1 1  2  x g  x  1+ 1 )  £  I  <- 1  + 1 )  /L OOP 6 
£443  >0 

C453  ERR* 'FOR  THIS  DATA  TYPE  EACH  ENTRY  MUST  LIE  IN 
THE  1 

£463  1  INTERVAL  0  i  X  £  't 2  Ofl-l 

£473  >RET 
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Cl  3 
C23 
C  33 

C43 
C53 
t:  6  3 
C73 
C83 
I"  9  3 
Cl  03 
C 1 1 3 
Cl  23 
C 133 
Cl  43 


c  153 

Cl  6  3 
C 173 
C 183 
C 193 
C203 
C  2 1 3 

r  p  p  j 
C233 
C24  3 
C253 
C26  3 

C  273 
C283 
C293 
C303 
C  3 1  3 
C323 

C333 

C343 

C353 
C36  3 
C  3  7  3 
C383 


READF1L.E  XIB»C$XIJSKfL 
I ( 8+4x1 )  xXC  1 3 
L. <- X C 1 3 1 J 2 x  ( X 1 1 )  x|£xXC13 
( XC23M  1-  2  y  3  y  4  y  5  y  6  y  7  y  8  y  9 y 10*  1 1 y 12  )  /LI  y  L2  y  L.3  y  L4  y 
L  5  y  L.  6  y  L.  7  y  L  8  y  L  9  y  L.  1 0  y  L.  1 1  y  L 1 2 
L.  1 :  B I  LTS<-  < B  C 1  + I 3  1  F ILE1  1  )  C  X  C  3  3  y  X  C  4  3  }  1  y  3 
">0 

L.2  J  F’GLIM<-  ( BC2+I  3  '  FI  LEI  1  )  CXC43+1 y XC33 3 
->0 

L3JPR0BPR0M<-  (BC3+I3  'FILEl  1  >CMXC333 
*0 

L..4 J ELIG<- <BC4+I 3  1  FILE1  1  )C?  JXC33  3 
■>0 

L5 :  CONT INUAT 1 ON*  <  L ,  3 )  e 0 
KM 

L  P {  CONT INUAT I ON C  y  K3<-  (HC4+K-+1 3  'FILEl  1  >CXC43+ly  JXC33 
3 

K  K  +  1 

•■»  <  K£3 )  /LP 

••>0 

L7JBH3CI+9+2XXC43  3  'FILEl  ' 

CH0CI+lO+2xXC433 'FILE!  ' 

NROT*  < <6 y  My l£)  p  (  y  B)\C )  C  i  i XC333 
•*0 

L9  J  B*HC  (  (  J-l  )  I2XXC33  H-2XXC  43  x|£3  'FIL.E2' 

C*BC  ( J+2XXC33  )  +2XXC43XK3  '  FILE2  ' 

ACCESSIONS*  (3  y  L  y  tS)  f-  <  yB)\C 
••>0 

L 1 0  J  A  D  J  P  R  0  B  P  R  0  M  <  •  <  B  C 1  +  X  C  4  3  +  < I  ■ +  2 )  x  X  C 1  3  3  '  F I L  E  3  '  )  C  y  J  X  C 

33  3 
••>0 

L.11  JBHBC  (L+2xXC33)+2xXC43xK3  'FIL..E4  1 
C«-BC  (L  +  l+2xXC33)+2xXC43xl£3  ‘  FILE4  ' 

INVENTORY*  <3yL.yM>  P  (  yB)\C 
>0 

L12  J  SUMMARY*-  ( K3CL.il  3  '  FILE4  '  )CXC43+ly  5XC333 
>0 

L8iB*BCI+9+2xi+XC433  '  FILEl  ' 

C*BCI+10+2xi+XC433  'FILEl  ' 

L.ROTM  ( 3 y M y li )  P  <  yB)\C)C  i  JXC3D3 
•*0 

L& * ERQT* (BC8+I 3  '  FILEl  *  )CXC43-fl5  JXC333 


v 
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V  WRITEFIL.E  XyBJCJ I f JJK»L 
C13  I<- ( 81-4x1)  xXC  1 3 

C23  L<-XC13fJ<"2x<Iii)xKxXC13 

1133  -»<XL23  =  iy2»3»4»5y6»7»8r9yl0»ilri2)/LlrL2rL3»L4r 

L5 1 L6 * L7  r L8  t L9 i L 1 0  t L 1 1 » L 1 2 
C4D  Li  JB«-BC1  +  I3  'FILE!  ' 

C53  BCXC33  JXC43+1  i  3<-BILTS 
C63  BBC  1  +  13 1  FI LEI ' 

C7D  ->0 

C83  L2«B<"HC2+I3  'FILEl ' 

C93  BCXC43  +  1  »XC333«-PGLIM 
C 103  BBC2+13  ' FILEl ' 

Cl 13  >0 

C 123  L3JB*Bi:3+I3  'FILEl  ' 

L 133  B C  y  5  XC33  3<PR0BF‘R0M 
C 143  BBC3+X3 ' FILEl ' 

C 153  ->0 

C 163  L4JB<I3i:4+I3' FILEl  1 
C 173  B  t  y  »XC333<-ELIG 
C 183  BBC4+I3 'FILEl ' 

C193  ->0 

C203  L5«K<1 

11213  LOOPiB<-BC4+K+I3  '  FILEl ' 

11223  BCXC43  +  l?JXC33  3<-CONTINUATIONi:?K3 
C233  BQC4+K+I3' FILEl' 

C243  K<-K+l 
C253  -» <  K23 )  /LOOP 

11263  ->0 

r_ 2 7 3  L7JCH3CI+9+2XXC43  3  'FILEl  ' 

11283  Bf-<6»M»K)P<  yC>\BCI+10+2xXC433  'FILEl  ' 

C293  BCJ ?XC333< NROT 

11303  ( 0*B>BC I+9+2xXC433  1  FILEl  ' 

11313  <  (  »0s*B)/»B)BCI  +  10+2xXC433  'FILEl  1 

T323  ->0 

L”333  L9  5  <  0# ACCESS IONS )  QC  (  ( J-l  >+2xXC33)+2xXC43xK3  'FILE2' 
C343  ( <  y  0* ACCESS I ONS)/ y ACCESS I ONS)BC ( J+2XXC33 )+2xXC43x 

i£3  1  FILE2  ‘ 

C353  >0 

L363  L10J  B«-BC  1+XE43  KI+2)  xOF'l  3  1 FILE3 ' 

C373  B  C  y  y  X  C  3  3  3  <•  AD  JPROBPROM 
£383  BHi:  1+XC43  +  <  1+2 )  xOF'l  3  ‘  FILE3  1 
£393  >0 

£403  LIU  (O^INVENTORY)fli:  (L+2xXC33)+2xXC43xts;3  'FILE4' 

£413  <  (  yO*INOENTQRY)/y  INVENTORY ) B£  ( L +1+2XXC33 ) +2XXC43 x 

K3  '  FILE4 ' 
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C423  >0 

C433  L12JBHBCL+13  1  FILE4  1 
L44:i  BCXE43+1 *  f  Xt333<-SIJMMARY 
C453  BBCL+13 'FILE 4' 

L'463  *0 

L  47  3  L  8  J  C  B  C I  +  9  +  2  x  I + X  C  4  3  3  '  F I L  E 1  1 

C483  B«-<3rM»K)i><  »C)\BCI+10+2xl+XC433  ' FILE1  ' 

i:493  BE  »  »  XC333«-LR0T 

i:503  <0*B>BCI+9+2xl+XC433  'FILEl  1 

i:513  ( <  '0*B>/'B)BCI+10+2xl+XC433  '  FILEl ' 

1:523  ->0 

l"533  L6iB<  BC81I3  'FILEl  ' 

C  54  3  B  C  X  C  4  3  + 1  $  i  X  C  3  3  3  <-ER0T 
i:553  BBC  8+ 1 3*  FILEl  1 
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V  N  ALTER  X 
Cl  3  nFXBCSy^’MOD' 
1123  N  ALTERR  X 
E33  HEX ' ALTERR ' 
v 


v  N  ALTERR  X  i  A  r  A1  i  A2  *  B  ‘?  B1  f  B2  i  EROT  J  H  >  I  *  INVENTORY  *  J  5 
LROT 

Cl 3  ATTRITION  X 

1123  -><N=1f2f3f4f5f6)/L1 f  L2  f  L3  f  L4  f  L.5  f  L6 

C33  li:hold<-inventory 
11-4  3  -»0 

C53  L2  J  HOLD<-  ( 3  f  L  f  M ) pO 
1163  READFILE  XC 1 3  f 8 f XC23  r  XC33 
1173  A<-+/INVENTORYC  f  f 1 f  2  f  3  f  43 
C83  lNVENTORY<-0 

C93  B<-(  (  <l»LrM)(>LROTCl»3)  f C13 < 1 fLfM> PLR0TC2J 3 >  fC13(1f 

LfM>pLROTC3f3 

C 103  HOLD<-Bx<3fLfH)p<<*i<MfL>pAC1f3>  FC13*<tfFL)pAC2»3)FC 
13isi<M»L)pAC3f3 
11113  -»0 

C 123  L3i READFILE  XC13f8fXC23 fXC33 
C 133  A<-1-+/LR0T 

C 143  INVENTORYCf  f  1  f  2  f  3  f  43«-INVENT0RYC  f  f!f2f3f43x<  (  <1fLf 
4)pAC13) fC13(1fLf4)pAC23) fC13(IfLf4)pAC33 
C  153  HQLD<- INVENTORY 
II 163  INVENTORY*  0 
Cl  73  ->0 

C 183  L4 I READFILE  XC 1 3 f 6 f XC23 f XC33 
C 193  A<-1  0  1  0  1  O/EROT 

C203  B<-((  (1fLfM~4)pAC13)  fC13<1fLf«-4)pAC23)  FC13(lFLFfci- 

4 ) pAC33 

C213  H<-+/ ( Bx INVENTQRYC  *  ? 4+ \M-43  >  4 

C223  B<-INVENT0RY«-0 

C233  H0LD<-<3fL»4)p(  (*<4fL>pHC1 f 3 > f C13*<4fL) pHC2f 3 >  fC13 

* <  4fL >  pHC3 f  3 

C243  ->0 

C253  L5  J  READFILE  XC 1 3 f 6 f XC23 , XC33 
C263  A<-0  10  10  1/EROT 

C273  B«-(  (  (1fLfM-4>pAC13>  fC13(1fLfM-4)pAC23)  fC13<1»LfM- 

4 >  p AC33 
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11283 

H+-+/ ( Bx INVENTORY!  i  M+\M-43)+4 

11293 

fi<-INVENT0RY<-0 

L303 

H0LD<-(3rLr4)p(  (is«(4rL)pHCin)  »C13iS((4r 
*K4rL)pHC3?3 

L)eH!2r3) r!13 

C313 

->0 

1132  3 

L6JREADFILE  XL’  1  3  r  6  r  XC23  r XC33 

C333 

MU  0  1  0  i  O/EROT 

i:343 

A2<-0  10  10  1/EROT 

C353 

B<-((a,Lytt--4)pAlC13+A2C13)fC13(lrL»M 
23)  rC13<lrLfM-4)pAlC33+A2C33 

-4 ) p A1 !23+A2! 

C363 

J<-1 

C373 

LOOP J INVENTORY! Jr  J 4+ \ M»4 3 <- INVENTORY CJ 

bcj?  n 

i  ?4+\M--43xl- 

C383 

j<-j+i 

L393 

-K  Js3>/L00P 

i:403 

B<~0 

C413 

H0LD<- INVENTORY 

V 
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^  START  ^ 


DETERMINE  INVENTORY 
AFTER  ATTRITION 


DETERMINE 
TOTALS  IN  PRDS 
1  THROUGH  4 


MULTIPLY  TOTALS 
BY  LATE  ROTATION 
VECTORS  TO  FORM 
ARRAY  OF  LATE 
ROTATORS  CALLED  HOLD 


HOLD  IS  EARLY 
ROTATING  ARRAY 
CORRESPONDING  TO 
ROTATION  TYPES' 

SEA  -*■  SHORE 
SHORE  ~>SEA 
NEUTRAL  SEA 


HOLD  IS  EARLY 
ROTATING  ARRAY 
CORRESPONDING  TO 
ROTATION  TYPES: 

SEA  NEUTRAL 
SHORE  “►NEUTRAL 
NEUTRAL -►SHORE 


HOLD  ISTHE 

HOLD  **- 

ARRAY  OF  NORMAL 

SURVIVING  INVENTORY 

ROTATORS 

-HOLD 

END 


~) 
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\ 

y  ATTRIT 

JON  X? I 

? CONTINUATION 

i::  1 3 

READF I 

LE  X£ 1 3 

>5>XE23>X£33 

£23 

••  X  "I 

READFI 

T  J-  1 

I..E  X £  1 3 

» 1 1  y  XC23  » XE33+0P4E  :l  3 

.♦  vJ  «*l 

”43 

.1.  '  J. 

L.P  1 1 NVE 

NTORYCI 

y  y  3  <  ■  I N  V  E  N  T  0  R  Y  £  I }  }  3  x  *  ( fc|  „  L  >  p 

••  ur  -i 

CONTINUATIONE 

T  i..  T  J.  1 

y  J  3 

..  \.t 

::63 

/L..P 

V  X  CHECK  ZJCOArClArCOPrClP 

i::n  dfxibc30+zci33  'mod* 

1123  X  CHECKK  ZE23 
£33  DEX' CHECKK* 
v 


v  X  CHECKK  Til 
£13  -» <  X-l ) /SEC 

i:23  -K  <T<0)vTiI)/ERRi 
£33  COA<~H£l+I3  'FILE3* 

1143  C0P+-HE2+I3  '  FILE3  ' 

i:53  -><  <pC0PXTfl)/ERR2 

£63  -K  <pC0A)-0)/DEF1 
£73  H~1 

£83  LOOPJ  -X  (Til )aC0AEI3*0)/ERR3 
£93  I<-I  +  l 

£103  -KI<(T+1)L  pCOA  )  /LOOP 

£113  DEF1JCH+-1 
£123  ->0 

£133  ERRli'T  MUST  BE  IN  THE  INTERVAL  Os;T;'?I 
£143  4BEF2 

£153  ERR2J  1  INVENTORY  HAS  NOT  BEEN  COMPUTED  FOR  PERIOD  1 
i  T 

£163  ->DEF2 

£173  ERR3  J  ' DAT  A  AFFECTING  THIS  COMPUTATION  HAS  BEEN 
ALTERED? • 

£183  'A  VALID  COMPUTATION  REQUIRES  Oil £'rl-l 
£193  DEF2 •  CH<-0 
£203  -»0 

£213  SEC ♦ ( (T+1)pO)H£1+I3 ' FILE3 ' 

<7 
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V 

X  CHECKK  TII 

cm 

->  <  X=1 )  /SEC 

1123 

-»<  (T<0)vT£l)/ERRl 

131 

ClA<~HC3+2xI3  '  FILE3 ' 

C43 

Cl P+-HC 4+2x13  '  FILE3  ’ 

1153 

-»<<pC1P><T+1  >/ERR2 

\:.6i 

4<  (pC1A)=0)/DEF1 

171 

I<-1 

1183 

L00PJ4<  (TiI>aC1ACI3s*0)/ERR3 

t+I+l 

i:  103 

4<I<(T+1>LpC1A>/L00P 

cim 

DEFUCH<-1 

C 123 

^0 

C 133 

ERRIJ'T  MUST  BE  IN  THE  INTERVAL.  0iT<'JI 

C 143 

4DEF2 

C 153 

ERR2J ' INVENTORY  HAS  NOT  BEEN  COMPUTED  FOR 
fT 

PERIOD 

II 163 

•+DEF2 

II 173 

ERR3 J  ' DAT  A  AFFECTING  THIS  COMPUTATION  HAS 
ALTERED  r  ' 

BEEN 

C 183 

•A  VALID  COMPUTATION  REQUIRES  OSTS ' ? I~I 

C193 

DEF2  J  CH«-0 

C203 

**>0 

1121 3 

SEC ♦ ( ( T+l ) pO ) HC 3+2x13  * FILE3 1 

7 

v  X  CHECKK  If  I 

C 1  3 

■»<X=1  )/SEC 

C23 

4<  ( T<  1 )  VT>I )  /ERR  1 

C33 

C0A<-HC1+I3  'FILE3' 

C43 

C0P«-HC2+I3  '  FILE3 ' 

C53 

-»(  (pC0AXT)/ERR2 

C63 

-»<  (pC0P)=0)/DEF1 

C73 

I<-1 

1183 

LOOP J  ->  (  ( T >  I )  ACOPC 1 3^0 ) /ERR3 

C93 

I<-I  +  l 

C 103 

4<I<TLpC0P)/L00P 

C 1 1 3 

4(C0ACT3=1)/ERR4 

C 123 

DEF1 J  CH<-1 

C133 

40 

C 143 

ERRIJ'T  MUST  BE  IN  THE  INTERVAL  OcTS'il 

C 153 

4DEF2 

II 163 

ERR2J 'ADJUSTED  PROBABILITIES  HAVE  NOT  BEEN 
COMPUTED  FOR  PERIOD  ' ?T-1 

C 173 

4DEF2 

BEEN 

C 183 

ERR3 J ' DATA  AFFECTING  THIS  COMPUTATION  HAS 
ALTERED? ' 
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C193  'A  VALID  COMPUTATION  REQUIRES  OsTS'il 
L?03  -»DEF2 

IZ213  ERR4J  'ADJUSTED  PROBABILITIES  ARE  NOT  VALID  FOR 
PERIOD  1  ?  T-l 
11223  DEF2«CH<-0 
L233  ->0 

L243  SEC  }  (  (  T+l )  #>0)13C2+I3  '  FILES  ' 
v 


V  X  CHECKK  TrI 
LI  3  -» ( X-l )  /SEC 

L2 3  •*<  <T<l)vT>I)/ERRl 

L33  C1AH3C3+2XI3 'FILE3' 
i:  4  3  Cl  P4-I3C  4+2x13  1  FILE3  ' 

C53  -><<pC1A)<T)/ERR2 

L63  -X  <pC1P)=0)/DEF1 
L73  I<-1 

L83  LOOP  *  ->  (  <  T>  I  >  AC1PC  I  3*0  )  /ERR3 
L93  I  <- 1  + 1 

L103  -»(  I<TLpC1P)/L00P 

i:  1 1  3  -XC1ACT3  =  1  )/ERR4 
L  123  DEF 1  i CH<-1 
L 133  -»0 

L 143  ERRIJ'T  MUST  BE  IN  THE  INTERVAL  O-cTS'il 
i:  153  ->DEF2 

C 163  ERR2J 'ADJUSTED  PROBABILITIES  HAVE  NOT  BEEN 
COMPUTED  FOR  PERIOD  ' ?T-1 
L 173  -»DEF2 

i:  183  ERR3*  ‘  DATA  AFFECTING  THIS  COMPUTATION  HAS  BEEN 

altered; ' 

L 193  'A  VALID  COMPUTATION  REQUIRES  OslTS'JI 
L203  -»DEF2 

L213  ERR4J 'ADJUSTED  PROBABILITIES  NOT  VALID  FOR  PERIOD 
'  t  T-l 

L22 3  DEF2ICH4-0 
C233'"40~ 

C243  SECJ ( (T+l ) pO)3C 4+2x13 'FILE3' 
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V  FTP i I JErELIGJ NORMPROM > PROB t PROBPROM f W 

C13  READFILE  0Plr3rKrT 
C23  READFILE  0Plr4rK,T 
£31  PROB<-PROBF'ROMLELIG 
£41  NQRMF'ROM<-E«-0 
C53  If-1 

£61  LP;NORMPROM*-NQRMPRC)MF+/PRQBCIJ  3X+/C23INVENTORYCI 
1 

£71  E<-E++/ELIGCIJ3x+/C23  INOENTORYC  1 1  i  1 
C83  IM  +  l 
£91  -K  I  :£  3  >  /LP 

CIO]  ->(NORMPROM>AVAILSLOTS)/LL 
Cl  13  -»  ( E-NORMPROM ) /LLL 

C123  W*1  L  (  AOAILSLOTS-NORMF'ROM ) -r-E-NORMPFiGM 

C 133  ABJPROBPROM*  <  <1--W>XPRQB)+WXE"L1G 
C 143  ">0 

C 153  LL  J  ADJPROBPROM+-  ( AOAILSLOTS-rNQRMPFiOM )  xF'ROB 
C 163  -»0 

C 173  lll;adjprqbprom<-prob 

V 


V  X  FILEALT  T 
Cl  3  OFXBC353 ' MOD ' 

C23  X  FILEAL.TT  T 
C33  OEX ' FILEALTT 1 
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V  X  FILEALTT  T>C0A>C0P»C1A»C1P 
Cl 3  -><2®+/X®0  0>/Ll 

C23  -»<2«+/Xsa0  1>/L2 

C33  -»<2®+/X=l  0>/L3 

C43  -»<2=+/X®l  D/L.4 

C53  LI  ♦  COA+-IBC 1+13  1  FILE3  ' 

C63  -»<TipC0A)/0 

C73  COACT+1  3+1 

C83  COABC 1+13  1  FIL.E3  ' 

C93  -»0 

C 103  L2JCOPH0C2+I3 'FILE3' 

C 1 1 3  -KT2:pC0P>/0 

C 123  COPCT+1 3+-1 
C 133  C0PBC2+I3 ' FILE3 ' 

C 143  ->0 

C 153  L3:C1AHBC3+2XI3 'FILE3' 

C 163  ->(T1pC1A)/0 

C173  C1ACT+1 3+-1 
C 183  Cl ABC 3+2 xl 3 'FILE3' 

C 193  ->0 

C203  L4  «  C1P+R3C  4+2x13  '  FILE3  1 
C21 3  ->(TipClP)/0 
C223  C1PCT+1 3<-l 
C233  Cl PBC 4+2x13 ' FILE3 1 
v 


V  Z  GROUP  X 
Cl  3  0FXHC73 ' MOD ' 
C23  Z  GROUPP  X 
C33  dEX'GROUPP' 


B-44 


s?  Z  GROUPP  X  >  A » AD  JPROBPROM  I B  f  C  f  HOLD i H0LD41  i  H0LD42  i 
HOLDS 1 i H0LD52J I JPROM8UM 

Cl  3  C<-0 

C23  H-OP5C(2xXC33>--13 

C33  L.OOP1  :-><XC23“lr2»9»10»ll»12irl4rl5>/LlfL2rL9»L10r 
Lll »L12rL14»L15 
141  L1JREADFILE  XC 1 1 r 1 t I > XC43 
C53  C«-C+BILTS 
I"  6  3  ~»LL 

C 7 3  L2 ♦ READFILE  XC 1 3 » 2 r I r XC43 
C83  C<-CfPGLIM 
C9  3  -»LL 

C 103  L9«  READFILE  XC 1 3 t 9 r 1 t XC43 
C 1 1  3  OC+ ACCESS  IONS 
C 123  ACCESSI0NS<-0 
C 133  ->LL 

C 14 3  L10J-KI-1  )/LL10 
C 153  1  ALTER  XC  1 3 > < I~1 > » XC43 

C 163  READFILE  XC13 » 10r < I~1 > >XC43 

C 173  C*H0LDx<3»L»M>p<  < N <  fci  r L > p ADJPROBPRQMC 1 r 3 >  r  C 1 3»s« < id r 
L )  p  AD  JPROBPROMC  2  f3)»C13!si(MrL)f>  AD  JPROBPROMC  3  r  3 
C1S3  AD  JPROBPROM<-HQLD<-  0 
C 193  ->LLL 

C203  LLiO:C<-<3rL>a>eO 
C  2 1 3  ->LLL 

C223  LI 1 i READFILE  XC 1 3 > 1 1 > I > XC43 
C233  C+C+ INVENTORY 
C243  INVENT0RY<-0 
C253  -»L.L 

C263  L12 ♦ READFILE  XC 1 3 r 12 , I r XC43 

C273  SUMMARYC13<-XC33 

C283  -» <  I=0P5C  (2xXC33)~13> /KK 

C293  SUMMARYC 1 >  43<-0  0 

C303  KKJC*-C+SUMMARY 

C31 3  ">LL 

C323  L14J1  ALTER  XC13rI>XC43 
C333  C<-C+H0LD 
C343  H0LD<-0 

C353  ->LL 

C363  LIS  J  PREPINV  XC13>IrXC43 
C373  •*  <  0P3*1 )  / AA 

C383  INVENTORYC  i  i  1 , 2  r  3  r  43<-INVENT0RYC  it  1  t2t  3»43+<  <3r  Lr 
4  >  p  <  >  H0LD41 )  \H0LD42  >+<3>Lr4>p<r  HOLDS  1 )  \H0LD52 

C393  aa:c<-c+inventory 

C403  H0LD41<-H0LD42+-H0LD51<-H0LD52<-INVENT0RY<-0 

C41 3  LLJK-I  +  1 

C423  ->(Ii0P5C2xXC333)/L00Pl 

C433  LLL?-»(XC23  =  l»2rl2)/QQ 
C443  B<-(3r  (  (  pZ)4-2>  »ti>  pO 
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£453  I<-1 

£463  L00F'2JBC?m4-+/C23CCMZC<2xI)-13-l)  +  il+ZC2xl3-ZC( 
2XD--1]}] 
i:47H  I4-I  +  1 

C483  -» ( I  £  (  pZ  H-2 )  /LOOF'2 

£493  QQi->(XC23  =  l»2»9f  10»U^12»14r  15)/QlrQ2»Q9rQ10rQllf 
Q12rQ14f Q15 
£503  Q1JBILTS4-C 
£513  ->0 

£523  Q2:PGLIM4-C 
£533  ->0 

i:543  Q9JACCESSI0NS4-B 
£553  -»0 

£563  Q10JPR0M0TI0NS<-B 
£573  ->0 

£583  «11  JINVENT0RY4-B 
£59  3  -K> 

£603  Q12 ♦  SUMMARY<-C 
£613  -»0 

£623  Q14  ♦  IN0ENT0RY4-B 
£633  ->0 

£643  Q15  ♦  IN0ENT0RY<-B 
v 


v  HEADER  I 

£13  DFXBC24+I3 ' MOD ' 

£23  FNC  J  HEADERR 
£3  3  -» <  BR-0  )  /FNC 

£43  DEX‘ HEADERR' 
v 
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LI  3 
L23 


C  3  3 
C43 
C53 
1163 
E73 
C83 


v 


HEADERRfA?B 
EH-' DAT  A  TYPE:  ' 

A  <-17  26f>' BILLETS 


PAYGRADE 


LIMITS  PROMOTION  PROBABILITIES 

ELIGIBLE  PROBABILITIES  CONTINUATION 

EARLY  ROTATION  NORMAL  ROTATION 

LATE  ROTATION  ACCESSIONS 

ADJUSTED  PROBABILITIES  INVENTORY 

SUMMARY  PROMOTIONS 


SURVIVING  INVENTORY 
PREPARED  INVENTORY  *C 

4  ' 

BMIU'I 


DT<- 1 

LOOP:  -X26M-/ACDTJ  3=B»  (26pB) P  1  1  )  /END 

DT<-DT11 
( DTS17 )  /LOOP 


END :  BR<-  <  C  15p  3 )  *  2  v  1  v  0 )  CDT3 


v 


v  HEADERRf B 

C13  A<-5  7p  1  SEA  SHORE  NEUTRAL-»C 

E23  a<-'DUTY  type:  ' 

C33  BHUC1 
C43  DU<-1 

C53  L00P:-»(7=+/ACDUn=B»  <7-pB)p  1  1  >/END 

C63  DU<-DU+1 

1173  -»<  BUSS) /LOOP 

C83  END:BR<-<  <3p3>  r 2 r  1 » 0 )  CDU3 

7 


v  HE A DERR 5  B  ?  R  ?  A 
Cl  3  BR<“3 

C23  0  <-' ROTATION  TYPE:' 

C;  3  3  A  <••  8  1 6  p  '  S  E  A  T  0  S  H  0  R  E  S  E  A  T  0  N  E  U  T  R  A  L  S  H  0  R  E  T  0 

SEA  SHORE  TO  NEUTRAL NEUTRAL  TO  SEA  NEUTRAL 
TO  SHORE-* C  4 

C4  3  R<-B»  <16-pB<-14*CI>p  '  ' 

L53  R  T  1 

c:  6  3  L  0  0  P :  •*  ( 1 6  - + /  R  -  A  C  R  T  ?  3  >  /  E  N  D 
C  7  3  ->  (  8  is  R  T  <•■  R  T + 1 )  /  L  0  0  P 

C  8  3  E  N  D :  B  R  <-  (  ( 6  p  3 )  r  2  r  1  >  0 )  C  R  T  3 

7 
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[11]  ->0 

1-121  ERROR*  '  EACH  ENTRY  MUST  LIE  IN  THE  INTERVAL  0  <  X  S 
'  *2  OtLC 
C 133  BR<-0 

I.'!  143  ->0 

C 153  END*  BR<-1 
v 


v  HEADERRfBJ I 
C 1  3  BR<-3 

C23  -*  ( 0*2  I  pOPS  )  /ERR0R1 

L 3 3  -»<  <P0P5)>2XK ) /ERROR  1 

i:  4  3  i<-i 

C53  L00P1  :-K0P5CI  +  13>K)/ERR0Rl 

C 6  3  -K  0P5  C 1 3 > OPS Cl  + 1 3 ) /ERROR 1 
C73  H-I  +  l 

C83  ->  ( I  £  (  p OPS )  ~  1 )  /LOOP  1 

C93  CH'PAYGRADE  GROUPS: 1 
C 103  B+-16ICI 

Cl  1 3  -» (  (B== '  A <  pB ) «1 ) /END 

C 123  PGf-rsB 
C 133  I<-1 

C 1 4 3  LOOP *-»<P6CI3>  (  p OPS )  +2 ) /ERR0R2 
C 153  -»(PGCI3<0)  /ERR0R2 

11163  I<-I  +  i 
C 173  ->  ( I a'  pPG  ) /LOOP 

C 183  ->0 

C 193  ERR0R2* ' EACH  ENTRY  MUST  LIE  IN  THE  INTERVAL  0  <  X 
£  '  *2  Ot(  POPS  >4-2 
C203  BRm-0 
C21 3  ~*0 

C223  ERRORi: ' PAYGRADE  GROUPS  NOT  DEFINED r CHECK  OPS' 
C233  BR<-1 

11243  -»0 

C2S3  end:br+i 

V 
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MEADERRJUB 
C  "L 1  BR<-3 

C23  CH-'TIME  PERIODS:' 

C33  B<-13*D 

C43  -J<  (»='-»'  >MpB)-1)/END 

C53  TM<-  r  *B 
C63  I<-1 

C73  L00P:-KTMCI3>2)/ERR0R 
C83  -J  <  TMC 1 3  <0  >  /ERROR 
t93  H- 1  + 1 

C 103  -KI^pTM)/L.OOP 
C 1 1 3  -JO 

IT  123  ERROR :  1  EACH  ENTRY  MUST  LIE  IN  THE  INTERVAL  0  &  X  & 
• t 2  OtI 
i:  133  BR<-0 

C 143  -JO 

c  153  end:br<-i 


v  HEADERRJB 
Cl  3  BR«-3 

C23  □<-'  TOTALS  OR  ARRAY?  ' 

C33  BM7ID 

C43  -» <  B=  '  '  )  /END 

C53  -J< 6=+/ 'TOTALS'  eB>/01 

C63  -J<5~+/  '  ARRAY  1  cB)/Q2 

C73  'INCORRECT  ENTRY' 

C83  BR<-0 

C93  -JO 

c  103  qi:h<-o 
ci  1 3  -»o 

C 123  G2JH<-1 
C 1 3  3  -JO 
C  1 43  END  J  BR*1 
v 
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V  PREP I NO  X  r  AD JPRQBPROM  >  B  >  C  >  HOLD » H0LD21  y  H0LD22  r 
HQLD31 * H0LD32 i H0LD61 » H0LD62  >  J  f M 

Cl  3  J4-1 

E23  LOOP1  ♦  -» ( Je  <  <  1-QP2 )  x 1-QP3 )  r  ( 2xQP2 )  t  <2xOP3)  r  <3xOP2>  » 
<4xOP3> t  (5X0P3) r6xOP3)/Ql 
C  3  3  -+G2  "T"T 

C43  Gii-»<XC23>1)/AA 

C5 3  Ol  1  1  pO 

C 63  -»BB 

C73  AAJJ  ALTER  X  C 1 3  r  ( X  C  2  3  - 1 )  ?  X  C  3  3 
C83  READFILE  XC13 » lOr (XC23-1 > »XC33 

C93  M<-<  pHOLD)  C33 

C  103  OHOLDx<3,L>M)p<  ( * < M * L > p AD JPROBPROMC 1 >  3)  »C13*i<M, 
L)pADJPR0BPR0MC2f 3) »  C 1 3* < M r L > PADJPR0BPR0MC3 ? 3 
C 1 1 3  H0LD<-0 

i:  123  bb:j  alter  x 

C 133  READFILE  XC 1 3  » 10  r  XC23  r  XC33 
C143  M<-<  pHOLD)  C33 

C 153  B<”H0LDx(3rL»M)p(  <isi(M»L.)pABJPROBPROMCin)  f  C13iS((M» 

L  >  p AD JPR0BPRQMC2 »  3  )  ,  C  1  3 >se <  M ,  L)  p AD JPR0BPR0MC3  f  3 
C 163  HOLD<-C+HOLD-B 

C 1 7  3  ->  ( J—  1*2»3»4»5>6)  /L 1 y L2 » L3 1 L4  t  L5 1 L6 

C 183  li:holdii<-o*hgld 
C 193  H0LD12<-  (  t  H0LD1 1 )  /  i-  HOLD 

11203  -»G2 

C21 3  L2JH0LD2H-0*H0LD 

C223  H0LD224-  (  r  H0LD21  >  /  ?  HOLD 

C233  -»G2 

C243  L3:H0LD31<-0*H0LD 

C253  H0LD32<-  <  r  H0LD31 )  / 1  HOLD 

C263  ->Q2 

C273  L4:H0LD41<-0*H0LD 
C  283  H0LD42<-  (  r  H0LD41 )  /  y  HOLD 

C293  ->Q2 

C303  L_5:H0LD51<-0*H0LD 

C31  3  H0L.D524-  (  y  H0LD51 )  /  r  HOLD 

C323  ->G2 

C333  L6  5H0LD6H-0*H0L.D 

C343  H0LD624-<  >H0LB61  )/rHOLD 

C353  Q2iB<-OH0LEn-0 

C  363  J<-J+l 

C373  -»( Ji6)/L00Pl 

C383  -» ( 2-+/  ( 0P2 » 0P3 ) -0  >  0  >  /Q3 

C  393  -»  (  2  =■=+/  ( 0P2  r  0P3  >  =  1  >  0  )  /G4 
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c:  .10:1  -»  ( 2-+/  ( 0P2 1 0P3 )  *1 » 1 )  /Q5 

C41 3  INVENTQRY<-(3i»L»W)  p  ( »H0LD61  )\H0LD62 

C423  ~»G6 

L433  G3 5  INVENTORY*- <3fLrfcd)p  (  > HOLD1 1 ) \H0LD12 
i::44:i  ->Q6 

I!.'  45  3  G4  i  I NOENTOR  Y<~  ((3rL^)c(»  HQLD31  >  \H0LD32  >+<3rL»tf)p<» 
H  0  L.  D  2 1 )  \  H  0  L.  D  2  2 
L".  463  ->Q6 

C  47  3  05 :  INVENTORY*- <  <3»L»M>  P  <  tH0LD21  >\H0LD22>  +  (  <3rL»M>  i»  < 
r  HOLB31 )  \H0LD32  )  C  ?  ?l»2r3*43*  ( (3rLrd)p(  *H0LD61 )  \ 
HOLD 62 )  C  *  i  4+  \M--4  3 
i: 4 G 3  Q6t->(XC23"1)/Q7 
i:493  1  ALTER  XC13»  < XC23-1 > » XC33 

i:503  READ  FILE  OP1 r 10, (XC23-1 > >XC33 

i:513  FROMSUM«-+/+/+/HOLDx  <3»L»M)  P  (  <S(<fci,L)  p  AD  JPROBPROMi: 

1  i  3  ) »  i  1  3 Si  C  H  f  L )  PADJPR0DPR0MC2J  3  ) ,  C 1 3N  ( td  r  L )  p 
AD JPR0BPR0MC3  r  3 
C523  -*0 

C 53 3  Q7:PR0MSUM<-0 
v 


B-51 


B-52 


V  I  PRINN  X 

Cl  3  DFXBCIC133 'MOD' 
C23  IC23PRIN  X 
C33  OEX'PRIN' 


v  I  PRIN  X 

C 1 3  2  IP  • 

C23  ' <PGG~  >  » A4 i 18  * r  <  *  ' i PG ) 

C33  2  lp'  ' 

C43  '<TH  *  > >LI2?A2* 18 ' ? (NTM? '  *  P X > 
C53  4  Ip'  ' 

v 


*  I  PRIN  X 

Cl  3  2  Ip'  ' 

C23  '  <PG  ==  >»A5PI8'v<1  '  PPG) 

C33  2  Ip'  ' 

C43  1  <LGS  =  >fLI2»A2PF8.4't  (isnU?  '  *  ?  X> 

C53  4  Ip'  ' 

v 


v  I  PRIN  X 
C 1 3  2  Ip  *  ' 

C23  LPJ-»(DU-1  »2r3)/Al  »A2* A3 

C33  A1J'  SEA' 

C43  -*B 

1153  A2J'  SHORE' 

C63 

C 73  A3J  '  NEUTRAL.' 

C83  -»B 

C93  Bi3  Ip'  ' 

C 103  ' <TL  -  >  r  A5 » 1 10 ' t ( '  *  ? \ M ) 

C 1 1 3  2  1  p  '  ' 

11123  '  <LOSG=  >»LI2PA2?F10,2'  ?  <*t\ <  pOP6>*2?  ' 

C133  '  ' 

v 


'  rX) 
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V  I  F’RIN  X 
111  2  Ip'  ' 

C23  ->(I  =  1)/Q1 

L"33  'ROTATION:  se->sh  se-»nt  sh->se  sh->nt  nt-> 

SE  NT-»SH ' 

LAI  2  Ip'  ' 

C53  ~» ( 1=2 )  /Q2 

£61  '  <TL  ■  >>LI2iA2iF8«4'f  '  SX) 

C7 1  4  -Ip 

C83  ->0 

L91  Q1J 'DUTY  TYPE?  SEA  SHORE  NEUTRAL' 

Lion  2  Ip'  ' 

Cll]  '<TL  =  >rLI2fA2rF12«4'T(N\t4f  '  '  ? X > 

C123  4  Ip'  ' 

L'  133  ->0 

C 143  02:'<PG  =  >  »LI2» A2  ? F8 ♦  4  '  f  (SiPG >  '  '  »X> 

II 153  4  Ip'  ' 


v 


L!  1 3  2  1  p  '  ' 

IZ23  'DUTY  TYPE: 


v  I  PRIN  X 

O  1  o'  < 


n  i  i  r  l  < 
SHORE 

o  I  I 


SEA 

NEUTRAL' 


1133  2  Ip'  ' 

13  4  3  -»<I  =  1)/C 

H53  '  < TM  =  >  r  L. 1 2  r 

1163  4  Ip  '  ' 

1173  -»0 


?A1*I24' T<*TMr '  ’>X) 


»XC3»  >1) 
1193  4  Ip'  ' 


B-54 


V  I  PRIN  XrA»N*Z 

Cl  3 

C23  A<-7  32p' PAYGRADE  GROUP  INITIAL 

INVENTORY  FOR  PERIOD  INVENTORY  AFTER 
ATTRITION  PROMOTIONS  INTO  PAYGRADE  GROUP 

ACCESSIONS  INTO  PAYGRADE  GROUP  PAYGRADE  GROUP 

LIMITS  FOR  PERIODPROJECTED  INVENTORY  FOR  PERIOD 
« 

131  Z<-  +  /XC2r3»4r5r6,7n 

C43  Z  C  3 IH-  0 

C53  N<-  ( 1  OtTMC  J3  )  t  '  '  r<l  OfTMCJIl  +  Drl  OtTMCJII  +  1 

C63  '  A1JA1JI6'  T(A[l!3i  *  'JXCIH) 

C73  'Al?AlrAlfA2fI6rA4»I6'  t<AC2i>3f4»5»6»7J3»  1  '  ?  *stN  ?  1 

' »XC2r3»4»5»6»7?3»  '  ' 5  NZ  > 

v 
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APPENDIX  C 


PARAMETERS 


Fixed  parameters.  These  parameters  define  the  size  of  the  data 
structures  in  the  file  system.  For  a  detailing  community,  they 
remain  fixed  throughout  the  analysis. 

T 

This  is  the  maximum  number  of  years  to  which  the  initial 
inventory  will  be  projected. 

M 

This  is  the  maximum  tour  length  in  quarters. 

L 

This  is  the  number  of  length  of  service  categories. 

K 

This  is  the  number  of  paygrades . 


Variable  parameters.  These  parameters  can  be  modified  by  the  user 
at  any  time;  they  control  the  operation  of  specific  ROTATIONMOD 
functions . 

Opl(=0  or  1) 

All  ROTATIONMOD  functions  will  access  the  ( Opl ) -compartment 
of  the  data  files. 

Op2(=0  or  1) 

Late  rotation  data  is  included  in  projecting  the  inventory  if 
and  only  if  0p2  =  1. 

Op3(=0  or  1) 

Early  rotation  data  is  included  in  projecting  the  inventory 
if  and  only  if  0p3  =  1. 

0p4 

This  2-component  vector  is  used  to  project  beyond  the  normal 
limit  of  T  periods.  If  0p4[l]  =  0,  there  is  no  effect.  However, 
when  Op4[l]  =  1  and  Op4[2]  =  T,  then  input  data  loqated  in  the 


C-l 


period  T-l  space  will  be  used  to  project  the  inventory  stored  at 
period  T.  The  result  is  stored  in  the  period  T  space,  destroying 
all  previous  contents.  0p4  must  satisfy: 

•  0p4 [1]  =  0  or  1 

•  0  <  0p4 [2]  <  T 


Op  5 


This  vector  aggregates  paygrades .  The  ra-th  paygrade  group 
defined  by  0p5  is  the  aggregate  of  all  paygrades  k,  where 
Op5[2m-l]  <_  k  £  Op5[2m]  .  0p5  must  satisfy: 

•  0p5  has  an  even  number  of  components 

•  All  components  are  between  1  and  K  inclusive 

•  The  number  of  components  is  between  2  and  2K 
inclusive 


Op  6 


This  vector  aggregates  length  of  service  (LOS)  categories. 
The  m-th  LOS  group  defined  by  0p6  is  the  aggregate  of  all  LOS 
categories  l,  where  Op6[2m-l]  ^  Op6[2m]  .  0p6  must  satisfy: 

•  0p6  has  an  even  number  of  components 

•  All  components  are  between  1  and  L  inclusive 

•  The  number  of  components  is  between  2  and  2L 
inclusive 


Check  parameters.  These  parameters  are  automatically  determined  by 
the  operation  of  ROTATIONMOD  functions.  Their  purpose  is  to  check 
the  consistency  of  input/output  data. 

COA 


The  number  of  components  in  this  binary  vector  is  the  number 
of  periods  for  which  adjusted  promotion  probabilities  have  been 
computed  in  the  O-compartment.  A  1  appears  in  the  i-th  component 
if,  subsequent  to  the  computation;  data  affecting  period  i-1  has 
been  altered. 

COP 


The  number  of  components  in  this  binary  vector  is  the  number 
of  periods  to  which  the  initial  inventory  has  been  projected  in  the 
O-compartment.  A  1  appears  in  the  i-th  component  if,  subsequent  to 
the  projection,  data  affecting  period  i  has  been  altered. 


C-2 


T 


CIA 


The  number  of  components  in  this  binary  vector  is  the  number 
of  periods  for  which  adjusted  promotion  probabilities  have  been 
computed  in  the  1-compartment.  A  1  appears  in  the  i-th  component 
if,  subsequent  to  the  computation,  data  affecting  period  i-1  has 
been  altered. 

C1P 


The  number  of  components  in  this  binary  vector  is  the  number 
of  periods  to  which  the  initial  inventory  has  been  projected  in  the 
1-compartment.  A  1  appears  in  the  i-th  component  if,  subsequent  to 
the  projection,  data  affecting  period  i  has  been  altered. 
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